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In this book Tim Hartnell brings you — dynamic | Ga 4 mes fo r the | 
games for the ZX Spectrum. They range from board 
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games such as Chess and Pirandello, to arcade 
action in Jogger and Deathrace 2000, and include } 
a major adventure game, Revenge of Castle Dread. } 
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Every game is introduced in detail and, in most _ pec rum ; 
cases, the program is explained line by line. 
The tricks and techniques the programmers 
have used are highlighted and Tim Hartnell 
Suggests how these can be applied in 

_ your own programs. At the end of the book 
a chapter i is devoted to suggestions on how 
to improve and develop progam to your 
own specifications. 
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Introduction 


In many ways a computer is an ideal games opponent. 

Unable to gloat in victory, gracious in defeat, it is tireless, patient 
and infinitely available. Although it cannot supply the human by- 
play which can be as mucha part of the fun as the actual game itself 
when played against other people, the computer seems the 
perfect companion with which to while away the hours. 

No matter why you think you bought your Spectrum, | bet you 
spend at least some of your computer time playing games, and 
that’s where this book comes in. You'll find a wide variety of games 
here, from board games like CHESS and CHECKERS, arcade 
action in programs such as JOGGER and LEVEL FIVE, to our major 
adventure program, REVENGE OF CASTLE DREAD. We've aimed 
for worthwhile games of lasting interest, as well as ones which will 
give you programming and game hints and ideas to apply to your 
own computer work. 

To help you get the most out of this book, I've written detailed 
introductions to the games. In most cases the introduction takes 
you through the program line by line, explaining the tricks the 
programmers have used and suggesting how these can be applied 
in your own programs and games. Several programs also contain 
suggestions on how you can tailor a program to your own 
specifications, improving and developing it as you wish. 

The majority of the programs in this book were written by Tim 
Rogers, Paul Toland and myself. Tim and Paul are both students 
(Tim in London, and Paul in Belfast) and they deserve to be 
congratulated on the quality and originality of their work which is 
reflected in the programs | have selected for this book. A full list of 
program authors is on page 185. 

It is time now to start punching code into your Spectrum so you 
can enjoy these games which truly deserve the adjective 
‘dynamic’. 


Tim Hartnell, 
London, March 1983 
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LEVEL FIVE 
No need for panic, fear or tension, because here comes LEVEL 


FIVE, a fast-moving adaptation of an arcade favourite. 

The playing area is made up of five levels connected by a set of 
ladders. Four monsters start at the lowest level and make their way 
to the top. Your task is to contain them in the prison underneath the 
bottom level. The main problem is that, since these particular 
monsters always go upwards, the only way to get them to the 
bottom is to dig holes in the floors for the monsters to fall through. 
You can dig a hole by pressing the “0”, as long as there is no other 
hole on the screen. Each hole will only last for a short period before 
winking out of existence. 

You control your motion using the following keys: “5” (left), “8” 
(right), “6” (up), and “7” (down). The game ends when you have 
contained all the monsters. At this point, you'll be told how long it 
took you. The game ends prematurely if you are jumped on by a 
monster. As is often the case with Spectrum programs, the quality 
of the graphics is only hinted at by the sample printout. You'll find 
this program very fast and addictive. Program author Paul Toland’s 
best score is 60 jiffies. You are challenged to beat that. 

Line 1 shows you which graphics are on which keys, with the 
bricks on the “A”, sections of ladder on “B”, you (the running 
person) on “C” and the handsome monsters on “E”. Line 25 sends 
action to the subroutine at line 9100 after the INK has been set at 
white and the PAPER and BORDER to blue. In this subroutine the 
instructions are printed out on the screen. Line 9130 waits until you 
press a key, then clears the screen. The balance of the instructions 
then appear, along with a “Good luck” message, and the RETURN 
in line 9160 sends action back to 30, where the subroutine from 
line 9000 is called. 9000 starts by RESTOREing the DATA pointer to 
itself (which has the effect of restoring it to the next item of DATA 
after the number which follows the word RESTORE). This ensures 
that when the | and J loops are run (lines 9001 to 9040) the 
numbers read to be POKEd into the graphics are from lines 9050, 
9060, 9070, 9080 and 9090 and not from line 1070. 

Once the graphics have been defined, the program goes (via the 
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second statement in line 30) to the subroutine from line 700 which 
prints up the five brick pathways, one for each level. Line 910 
RESTOREs to itself, in the same way as the RESTORE 9000 we 
looked at a moment ago, moving the DATA pointer to the first item 
of DATA which follows the RESTORE. In this case it is line 1030 
which contains the information used in the J and | loops (1000 to 
1059) to put the ladders in place. Line 1055 blanks out the bottom 
line of the screen, and the program returns to line 4, where the 
real fun begins. 

Y and X, the co-ordinates of the figure (you), are set at 14 and 3 
respectively in line 40. M, which counts the monsters, is set to 4 in 
line 5@, and an array is created in the second part of this line to hold 
the monsters before they are placed at the start with the loop inline 
60. The H array (to hold your hole) is DIMensioned in line 70, and 
both INK and PAPER set to 8 in line 80, just before you are finally 
printed on the screen in line 90. 

The variable TIME (remember Paul's best score of 60) is set to 
zero in line 100, and subsequently incremented in 395, where its 
current value is printed on the screen. The title of the program is 
placed at the top of the screen (110), leaving a slot for TIME to 
appear, and the flag FREE is set to zero in line 190. 

The | loop checks the position, and controls the action, of the 
monsters. It runs from line 200 to 390 and holds within itself all the 
important actions of the program. These include keeping track of 
the monsters’ vertical positions (line 205), reprinting them (210 and 
220), checking their immediate environment (lines 225 and 230) 
and either going to line 430 if they have landed on top of you or to 
280 if they are climbing. The monster's horizontal coordinate is 
incremented in line 240, and the following line reverses the 
monster's direction of travel if it has reached either end of a 
walkway. ‘Monster away!’ is the cry if it steps over a hole (line 270) 
before it is reprinted in its new position by line 280. 

A hole lasts for 40 cycles of the program and line 295 fills ina hole 
after this time. Line 300 reads the keyboard, jumping over most of 
the next routine if there are no keys pressed when it comes to 300. 
If it reads a zero, it knows you want to dig a hole. If H(3) equals zero, 
the computer knows there are no other holes on the screen, so 
sets the coordinates of the hole at the same position across the 
screen as you are, and one line further down, before printing a hole 
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in that position, and then jumping to line 390. 

The computer knows that if you are pressing zero in line 315 you 
will not be pressing “5", “6”, “7", or “8” in the next few lines, so it 
keeps the program running at maximum speed by jumping over the 
lines it knows it will not need to process this time around. Line 317 
checks to see if you are pressing any keys other than those lying 
between “4” and "9" and if you are not, jumps to 390. The next line 
puts you in position, and line 325 POKEs the ATTRibute address of 
your position with 15, to make you vanish from your present 
position, prior to being reprinted in line 390 (ATTRibutes are stored 
after the display file, from address 22528). 

Line 327 checks to see whether you are on a walkway, and on 
discovering you are not, moves to line 350 to see if you wish to 
move up or down on a ladder. N, the value used for POKEing the 
ATTRibute of your position, is set to your current ATTRibute in line 
370, before you are printed in line 380. Line 330 is reached if you 
are on a walkway, where the keyboard moves you in accord with 
your wishes expressed by pressing “5" or “8”, modified by line 
340 which stops you trying to fall off the edge of the world at either 
end. Line 390 starts the whole cycle again. . 

After you‘ve been through the | loop four times, the variable 
FREE is checked to see if all monsters have been captured, and if 
they have not, returns to 190 to keep the game underway. Line 
410 signals that you've got them all, and 430 that they've grabbed 
you. You are offered a new game in line 500 and any input except 
“N" or “n“ will will get you that new game. 
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CIRCUS 


CIRCUS is an arcade game somewhat like ‘Breakout’, but involving 
a far more interesting scenario and a greater challenge to the 
player. You have to try and burst the balloons at the top of the 
screen by bouncing two clowns off the see-saw at the bottom of 
the screen. You control the see-saw with the "5" and “8” keys. 
Pressing the “1” key will cause the clown on the see-saw to 
change ends. The falling clown must land on his part of the see- 
saw to spring the other one into the air. Ideally, he should land on 
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the extreme edge of the plank. If he lands near the middle, the 
other clown will not rise high enough to hit any of the balloons. 
The game is so difficult to master that we modified the original 
idea to include additional clowns, just to give you a chance to burst 
a reasonable number of balloons. 
When you run the program, you'll see the instructions displayed 
as follows: 


CIRCUS: INSTRUCTIONS. 
The circus has come to town, and the star attraction is the 
clowns’ see-saw act. 

Two clowns bounce from a see-saw to burst balloons high 
in the air. The falling clown must not hit the ground or the 
wrong side of the plank. If he lands close to the middle then 
the other clown will not rise high enough to hit any balloons. 
The circus only has 6 clowns, so be careful. 

You control the see-saw with keys 5 and 8. You can make 
the clown on the see-saw change ends by pressing “1”. 
Press “N”“ to stop, or any other key to start 


And here's what the program looks like when it is under way: 
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The listing shows the characters used for the user-defined 
graphics in line 5, with “A” for the see-saw’s pivot, "B” for the 
clown and “C” for the balloon. After the random number generator 
is seeded in line 20, the program goes to line 80 where OVER is set 
to 1, the INK to black, PAPER to white and the BORDER to red 
before the screen is cleared to establish the PAPER colour. 

From here the program moves to the subroutine from line 900, 
where a further two subroutines (from 1100 and from 1020) are 
called. The first of these (from 1100) prints the title and instructions 
on the screen and the second (from 1020) defines the graphics. On 
returning from this subroutine, the frame around the screen is 
drawn (lines 902 to 905) and the balloons are put into place by the | 
loop from 910 to 930). You'll see that the | loop also places the 
‘clowns in reserve’ on the left hand side of the screen. 

A number of variables are defined in the next two lines. SC holds 
the score of the number of balloons you've hit (which is 
incremented in line 180). SS is the horizontal position of the base of 
the see-saw which is used in line 50 to place the see-saw and the 
Clown, and in the following line to draw the see-saw’s ‘plank’. Note 
that lines 40 and 60 are a subroutine which is called repeatedly 
during the running of the program. 

M counts the current ‘clowns in play’ and is incremented in line 
300 after being sent there by line 230. The BS array is used to print 
26 blank spaces in line 330 after each clown has had his day. OD 
and AN control the position of the clown. Changing these to their 
negatives (line 107) allows the clown to change ends of the see- 
saw. OD and AN are used in lines 50, 260 and 280. 

The variable CA is used to detect when AN should be changed 
(see lines 95 and 270) and HL is set in line 250 and used in 160 to 
determine when the Y coordinate of the current clown (the vertical 
displacement) should begin to be incremented in the direction 
opposite to the one in which it is currently moving (see 160 and 
140). X is the starting horizontal coordinate of the clown, used in 
line 130 and incremented in line 140 by A, which is changed in line 
280 to reverse the horizontal movement of the clown. Y (set in line 
950) is the starting vertical coordinate of the clown. This value 
Starts at anywhere between 5 and 8. 

Line 100 reads the keyboard for “5” and "8", changing the 
vertical coordinate of the see-saw’s base. This value is checked in 
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the following line (105) to ensure you are not attempting to move 
the see-saw too far to the left or right. 


REM 
REM cCIRcus. P.TOLAND, 
REM 


GoTo Be. 
G a 
PRINT AT 213,33; “a°iAT 21,55 


60 PLOT 5528-16,72lan=2): DRAW 
-3n: 
736 GUER 2° INR @: PAPER 7: BOR 


GO SUB 56 
95 IF ca THEN LET an=-an: LET 


ca=@ a 

1@@ LET ss=ss4+t(INKEYs="8") - (Inn 
ees CET SsSS5t+(S5=4) -—(S5=27) 
L107 IF INKEYS="1" THEN LET an=-— 


ay 

218 GO SUB Se me 

236 PRINT AT yx; “# 

14@ LET x=xX+a: LET y=y4ed 

15@ IF x=3 OR x=25 THEN LET a=- 
: BEEP .@1,1 
IF wiht THEN LEF d=-d 


a: 


& 
LET sc=sc+62-no: BEEP .@1,24 


85 PRINT AT y,x; OVER @; "#";AT 
@,26;5¢€ 

19@ LET d=-d 

19S IF sc¢=268 THEN GO TO 346 
296 GO Ta Sa 

210 IF u<21 THEN GO TO 3e 

220 LET dis=x-ss: BEEP .901,5 
230 IF dis<¢-2 OR dis>+2 GOR SGN a 
$$i2-an THEN GO TO 318 

250 LET hL=11-ABS dis#5 


T cast 
LET d=-i2 


ta 


& 
: = To 3 
S35 BEEP 1,-46: RUN 


18 Arcade Games 


PRINT AT 9,4; FLASH yi 
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a THEN STOP 
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1160 RETURN 


JOGGER 

You have to help five tired joggers across a busy six-lane highway. 
One by one, the joggers place their lives in your hands, as you guide 
them through the traffic using the "5" (left), “8” (right), “6” (up) 
and "7" (down) keys. One mistake, and you're finished. 

Not only are you working against the oncoming traffic, you're 
also working against the clock. Each time you manage to getall five 
across, you'll be told how long it took (measured in that well-known 
time unit ‘heartbeats’) and after a short break to catch your breath, 
another five joggers will line up beside the road, to await your 
assistance. 

As you can see from the two printouts there are always five 
joggers on the screen, waiting patiently at the bottom left hand 
corner, actually on the highway, or up at the top near the right hand 
corner. You'll be told how many joggers are left to assist (just in 
case you don't know how to count), as well as how many have 
made the journey to the top of the screen. The time, shown in the 
second line underneath "Joggers safe” is updated each time you 
manage to get another jogger through the traffic. 

Once you've mastered this game, you can convert the program 
to the second version. In this variation the jogger does not stop 
moving, so a great deal of concentration is required to move him or 
her through the traffic. | suggest you become totally familiar with 
the game in its original form, before you make the changes to give 
you the perpetual motion jogger. 

The program begins in line 20 with the call to the subroutine from 
line 410. Here, the INK is set to blue, the PAPER to white, the 
BORDER to red and the screen is cleared. The A loop from lines 
440 to 500 defines the six graphics. The first one (graphic A, or 
Character 144) is the jogger, the others are the cars. You'll see in 
this loop (line 450) that ES is set equal to character 143 plus the 
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value of A. The inner loop, B, READs the DATA from lines 560 to 
610, and then POKEs this into position in line 480. 

Line 51 sets the variable TIME (which stands for the time 
elapsed per round of five joggers, measured in ‘heartbeats’) and 
Sets the variable BESTTIME to a very large number. (You can see 
how big this number 9E7 is by entering, in the direct mode, PRINT 
9E7). Your BESTTIME will always be less than this, even the first 
time you manage to get the joggers across, so your altering of the 
value of BESTTIME will start the first time you succeed in 
completing one round of the game. 

The strings AS, BS, C$, and DS—which hold the cars—are 
assigned in lines 520 to 550. You can putas many, or as few cars as 
you like in these strings, so long as each of them is 32 characters 
long. In fact, once you get confident at playing the first version of 
JOGGER, you can make it more difficult before you enter the 
Second version just by increasing the number of cars per string. 
However, the cars cannot be placed within the strings completely 
at random. The very realistic vehicles were designed to be facing 
either right or left (as well as one which looks equally good 
travelling in either direction). The top three lanes of traffic move to 
the right, and the bottom three to the left. You can use graphic “B“ 
in any of the strings, keeping “C” for AS and B%, and reserving 
graphics “D", “E” and “F" for strings CS and DS. 

Once the variables have been initialized and the graphics 
defined, the RETURN at line 555 sends the program back to the J 
loop starting at line 30. This loop controls the main elements of the 
program, and as you can see, you go through it five times, once for 
each jogger. Line 40 prints up your “Joggers safe” tally (always 
one less than the current value of J in the loop) and the elapsed 
time so far. Line 50 prints the “Joggers left” tally, which is the 
difference between the current value of J and five (so when J 
equals one, the “Joggers left” is four, as one is in transit across the 
road). 

The small loop from lines 60 to 90 prints outa little jogger figure 
for each jogger which has made it across the road. Line 100 blanks 
out any remaining joggers at the bottom of the road, then the loop 
from 11@ to 130 prints up a jogger for each one still waiting. The 
variable JA is the position of the current jogger in transit across the 
screen, and JD is the position down the screen. The jogger starts 
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his or her marathon run at the position 16, 19 which is about centre 
of the screen, near the bottom, below the first lane of cars. Line 
150 prints a blank where the jogger will be printed ina moment, so 
when the jogger is moving, this line blanks out the previous 
position. Lines 16@ and 170 read the keyboard, moving the jogger 
in accord with your wishes, before the jogger is printed in line 180 

The long line 19@ prints all the lanes of cars. The PRINT ATs are 
chained in this way, as it makes for maximum running speed. Lines 
200 to 23@ compare the current position of the jogger with the 
content of the string at that position and if a jogger and a car have 
been found to coincide, then attention moves to the routine from 
line 350, where the jogger smash routine is invoked: Lines 250 to 
280 control the movement of the cars, using Sinclair BASIC string 
slicing to move elements of the strings along. 

The variable TIME is incremented in line 290. Line 300 checks 
the value of JD, and if it is found to be two, the computer knows 
another jogger has made it across the Rubicon. A jolly series of 
rising tones is heard before the NEXT J at the end of line 300 sends 
action back to line 40 for the next little red runner to brave the cars. 

If the jogger has not made it to the end (that is, JD is not equal to 
two) the computer will bypass the rest of line 300 and come to 310. 
If J is less than six, the computer sends action back to line 150, 
where the jogger is blanked out, prior to being reprinted by line 180. 
If all the joggers have made the journey safely, line 320 prints up 
“That round:” and the time it took you, puts a "5" at the end of the 
“Joggers safe:” line and prints on the screen “YOU DID IT!” Line 
330 tells you how long it took, and then line 340 sends the program 
to line 620. 

Line 62 compares the time of the round just completed with the 
BESTTIME, altering BESTTIME to TIME if TIME is smaller. If 
BESTTIME is not 10000 (which can occur the first time you attempt 
the game and fail to complete a round, as will be explained shortly) 
the best time is printed on the screen, so you can see how well or 
otherwise you did. A pair of opposing trills round out the end of the 
game (line 620), the variable TIME is reset to zero, and the program 
goes to line 30 to start the next round. 

If you have not managed to get all the joggers across the road, 
the routine from line 350 is triggered (the IF/THEN lines from 200 to 
230 send you here, you may recall). The loop (350 to 370) prints a 


a — ~ — 
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flashing jogger on the spot where he or she was hit by a speeding wv. POggers Safe: § KAAS 

; That raund: S26 
car, some BEEPs sound, and you are told (although by now you've De eUete et DeleGe oc Ge & 
probably realised this) that “YOU HAVE BEEN HIT”, followed by BEST TIME SO FAR: 471 
your ‘jogger tally’ (line 390). The variable TIME Is set to 10000 so we Woe ede a te a & & & 
that it will not be printed, and will not alter your BESTTIME value. If 
TIME was not artificially increased at this point, you could get a De Ades iat Glee 2 OF D 
brilliant BESTTIME simply by running into the first row of cars. Yau BIB IT! 

Once you've mastered this game, try it with more cars or invent ae GS sae ee oe = 
your own vehicles. A few horses, a penny-farthing bicycle or two IT TOOK YoU S25 HEARTSEATS 
and a rickshaw should keep you on your toes. When even this A SS > se ~ a 
custom-made version of JOGGER palls, alter your listing so that it 
resembles the second listing. In this version the jogger starts the me tie et ; me 


round moving, and keeps moving. You'll find this extremely 
difficult to play, and you may well want to make it easier the first doggers left: @ 
few times by reducing the number of cars, or adding: 

And this is the listing for it: 


195 BEEP .05,RND*50 
1@ REM JOGGER 
20 GO SUB 410 


to slow things to a more manageable speed. Good luck, Jogger, 38 eae pete =a ca A Smet } 
Leas — a s Ss | 
and may you cross The Road safely. ete Ae PO Be so far? “iTE j 
Here's what the program looks like when under way: MEG” ed 
Sa ee AT 26,2; “‘uWeggers ler? 
6@ PRINT AT 1,24; 
Fe FOR 2=2 TO w-i 
$3 @@ PRINT INK 2; "3";: REN GRAPH 
Joggers Safe: 42 & 70 SA NEXT = 
Time soa ar: &F aS =e = ay nce 
Tere Getele eka ie ae a eo ae AT 20,24: sAT 2 
323@ FOR F=2 Ta S73 hee 
eae ae Lee ~ ; 
a ae =e te a te 5 Sele a eee PRINT INK 23; °3"%;3: REM 
iso pay? ‘A iG LET JG6=393 
a = UA= S Ub =39 
an GatieGe a &@ & oe Seth we 250 SRINT AT JD,dA;" : 
5 16@Q LET JR=JA+(INKEY $="8")} -cCiIink 
ry go" S73 
& =a we eR 782 On 27@ LET JP=IDbs tINKEY $="6") -t INK 
EyYS=a"3") 
38@ PRINT AT JD.JA; INK 2; °3" 
ef Waa Paanmaaaaaaan «a at 323@ FRINT AT 3,0; INK 2;ASV AT 3 
278; INK GJ AG; AT 6, Hay INK 4; 695. AT 
a2>,_8,; INK G3; CS;A 18,08; INK 12;C 
f «a a a Pe eee oY 3 AT 45,0; THK 23 bs k 
BBG IF (Ub=3B OAR IJD=98) AND ASTYUA 
doggers teft: 3s z22 #2323 63" “ THEN Go To 350 
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210 IF _ JDP=6 AND BS#tdA+a cs" ' OT 
GO TO 358 


RE AI 


73a) 


220 


HAt ace 


@ 
BEEP -@1,2: NEXT 2: NExT 


3108 
2a 
und : 


IF fUP=12 OR JD=18) AND Csi 
HEN GO To 25a 

228 JD= 45 AND DES(tdAtli «cs " " 
GO TQ 3o5e 


LET TINE =TIME+1 
IF JD=2 THEN FOR 


LET ASSASIS1I+Ast( TO 313 
LET BS=BS(3114+BSt Ta oo 
LET Cg=CHZ(2> Ta ! $ tl 
LET DS=D$(2 Ta } $1 

a 


IF U<6 yee GO TO 156 
PRINT INK JAY 2,0; “That re 
“> TIME; 5 Zi 


ia, 
&; FLASH 1; ° PAPER 6; “BRIGHT ele ge 
SU DI ITFi” 


Soo 


PRINT °"TAB 4; "IT ToaoK you 


“>; TINE," HEARTBEATS" 


340 
35a 


GO TO 62a 
FOR 2=1 TQ 208 


36@ PRINT AT JD,JA; FLASH 1; BR 
EGHT 2; INK 2;"3*: BEEP .@@8,z 
380 PRINT 
3 NT AT 18,8; "you } 
wee A 3 °YOQU HAVE BEE 
S98 PRI a3" 5 
S28 PRINT AT 12,8;-1;" JOGGERS 
4@@ LET TIMNE=100@@@: GO TO S2a 
418 INK 1: PAPER 7: BORDER 2: c 
wo 
44@ FOR A=i To 6 
45@ LET ES=CHRS (145+9A) 
46@ FOR B=ea To 7 
SEER 
OKE USR ES+B,C 
498 NEXT B - 
SO0@ NEXT A 
_B1@ LET TINE=@: LET BESTTINE=@F 
S208 LET Ag=" aan an deteSe 
2 ory Gp ee" 
S3@ LET Bg=" tee a & 
ee we ae 
S4@ LET Cgata eR & AE 
SBSQ LET Ds" aatman naan — =z 
a” h a = RR" 
S55 RETURN 
S8Q DATA 26.25,5,62,8,28,.34,.66 
,578 DATA 8,60,36,231,2557185,9, 
4552 DATA 240,144,158,255,254,19 
S98 CATA @,0,30,99,255,27,8,8 
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6OG@ OATA @.08,56,408,126,06,0.,8 
61@ DATA @,8,30,51,255, 34. @,8 
Gee TF TIME <BESTT IME AND TIME<> 
2BABQ THEN LET BESTTIMNE=TINE 

S30 IF BESTTINE<s>9E7 THEN PRINT 
AT 4,23; FLASH 32; "BEST TINE So F 
AR: “LI BESTTINE ty 

S40 FOR 2=5@ TO 3 _ STEP -i: BEEF 
285.2: BEEF .@5,-2: NEXT 2 

S5@ CLS 

660@ LET TINE= 

Bre GO TO 38 


1Q REM JOGGER - Versian Treo 
435 REM Jogger Keeps running 
28 GO SUB 418 

SQ FOR .t=4 TO S 


.4@ PRINT AT 2,3; "Woggers safe: 

Teo 23;AT 2, &; "fine 30 Far: ea pak 
ME; 

SQ PRINT AT 28,2; dioeder = Lert 


es — 

6a PRINT LAT 2s aa) 

7@ FOR w= , 
SQ PRINT INK 2; °3";: REM GRAPH 


9@ NEXT = ae iz 
300 PRINT AT 28,24;" ;AT = 
A,S4; sae any 

4320 FOR 7= S-u 

32@ PRINT INK 2; "3"; : REN GRAPH 
xo A 

83@Q NEXT = 

34@ LET JA=16: LET JDb=18 

35Q PRINT AT JD,JA; * rhe 

45S LET =5= INKEYS: IF zZac"S" an 
FE2"S" THEN LET 2S=X$ Mite, 

160 LET Jaen? ee AND JA<csB 
3} -iZs="S" AN > f 

i36*ler UD=IDe(FF="G" AND Ups 33 
-iz7g$="7" gees 

475 LET X= ee 

380 PRINT AT .ID,WwA; INK 2:33 a 

190 PRINT AT _ 3,0; INK 2; AS;AT 3 


12 we a Seer comete <- so ais Sr a 
AT 15 ; 

* 280 TF’ (UD=3 OR wD=9) AND AST(UF 

#23 <2" " THEN GO TO 358 
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210 IF JD=6 AND BSiUA+ Acs oF S90 DATA @,@,3@,99,255,27,08,8 
HEN GO TO 35a S@@ CATA @.0,56,48,126,56,a,8 
220 IF (JUD=12 OR JD=18) AND CHi 618 DATA _@,0,30,51,255,94,0,8 
JAI} <>" “ THEN Ga TO 358 520 IF TINE<«cBESTTINE AND TINE <> 
230 IF JD=15 AND DS$(UAFA} cs" " 20000 THEN LET BESTTIME=TIME 
THEN GO To 35a 630 IF SESTTINE<¢>9E7 THEN PRINT 
2SQ LET AS=AS(I3S11.4AS( TA 31) AT 4,2; FLASH 1; “BEST TINE Sa F 
260 LET BS=BS(31)+68Si TA 313 AR: “|; SESTTINE 
2P7@ LET C#=Csi2 Ta 3+CHia. S40 FOR Z=5a TA 1 STEP -1: SEEF 
BSG LET DS=PE(2 TA 14+D8 (2) 285,27: BEEP .@5,-2: NEXT Z 
290 LET TIMNE=TIME +3 S5@ CLs ie 
SO8Q IF JDb=2 THEN FOR ==3 TA 36: 660 LET TINE=B: LET 2s="5 
BEEP .@13,2: NEXT =: NEXT J B7a GO TO 368 


S1@Q@ IF U3<6& THEN GQ TO i156 
S20 PRINT INK 3;AT 2,0; “That ro 


u 

3: FLASH a ee Jue ee DISABLE THAT MINE 

ou eRe ae nt This game is very hard to master because it entails controlling two 

as IME; a er eer eal ae ae ee objects on the screen at the same time. Your task is to clear the 
Sa4@ GO TO 620 screen of mines and the task is a doubly difficult one because 
Soe Coates ee me FLASH 1: BF disabling a mine is a two-stage operation. First you must deactivate 

IGHT 1; INK 2;"3°: BEEP .ae@elz the mine using the inverter. Passing the inverter over a live mine 
=FG@ NEXT = : ; : : : 
= makes it safe, but passing the inverter over a safe mine reactivates 

S08 PRINT AT 28,8; “YOu HAY a‘ : : . ope won 

N HIT" re aaa it. You control the inverter with the "5" and “8” keys. 
Soe) PP Seo a3” JOGGERS As well as the inverter, you'll see the controller on the screen. 
400 LET TIMNE=108@@@: Go Ta 62a Passing this over a mine made safe by the inverter removes that 

; eee INK 1: PAPER F: BORDER 2: ¢ mine from the screen. You have to be very careful to make sure the 

"32@ LET X$="S" controller does not hit a live mine. The controller is also controlled 

i283 Hs Asi To 6 “se by the “5” and "8" keys, but with SHIFT depressed. 
460 FOR ee eee Seager ak: There are 40 mines and a choice of five possible speeds, so this 
47Q@ READ C is not a game you will tire of quickly. As you can see from the 
$50 Beek oF EsS+6,.c sample printout, you'll have a very difficult time keeping everything 
SOQ NEXT_A under control. 

BS LET TIME=@: LET BESTTINE=SE When you first run the program, line 30 sends action to the 
S20 LET Ags" fet eB Deets subroutine from line 600 where graphics “A”, "B” and "C” are 
Ee ae Be= We a Re redefined. The “Z” in the last DATA statement, line 680, triggers 
+2 Rah Aba" the RETURN from the subroutine in line 600. On the return, the 
See CEE Cre. ae second routine call in line 30 directs the Spectrum to line 520, 
5508 LET DSi ssnannaann _ ce where the instructions are printed up: 

S85 

S6a BATA Se, 28,8,62,5,28,34,66 YOUR TASK IS TO CLEAR THE SCREEN OF MINES. THIS 
ao’@ DATA @, 6a,36:;234 ,2857102, @. ISA TWO-STAGE OPERATION, FIRST THE MINE MUST BE 

S8@ CATA 240,144,156,255,254,18 DEFUSED BY PASSING THE INVERTER (graphic "B”) 


2=.8,8 OVER IT. THIS IS CONTROLLED USING KEYS 5 TO 8. 
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NEXT, THE DEFUSED MINE MUST BE PICKED UP BY THE 
COLLECTOR (graphic “C") THIS IS CONTROLLED BY 
KEYS 5 TO 8 WITH THE CAPS SHIFT ALSO DEPRESSED. 
THE COLLECTOR MUST NOT HIT ALIVE MINE. 


Once you've absorbed this, you are asked to select the difficulty 
factor: 


ENTER SKILL LEVEL 1-5. 5=EASY 
PRESS 6 TO STOP. 


The INKEY$ routine in lines 540, 550 and 560 accepts valid 
inputs, rejecting key presses which are outside the range “1” to 
“6” (line 550) and terminating the program if the “6” has been 
selected (line 560). Line 570 sets the variable SP to a value related 
to the key between “1” and “5” which was pressed. SP controls 
the difficulty, or otherwise, of the game. Line 580 now sends 
action to line 40, the line after the GO TO which started the 
instruction/choice of difficulty sequence at which we have just 
been looking. 

Line 40 sets up the screen. The INK and PAPER are both set to 5 
(cyan), the screen is cleared to establish the colour, and the 
BORDER is then set to cyan. The INK colour changes to black, and 
variable TS is made equal to a single space. Lines 50 and 60 
initialize variables which will control such things as the positions of 
your inverter and controller as well as the number of mines 
disabled. The routine in lines 70, 80 and 90 draws the border within 
which the action will occur and the routine from lines 100 to 150 
puts the mines in place, ensuring (line 130) that there are no mines 
printed on top of other mines. If this happened, there would be less 
than 4@ mines on the screen and the ‘end of game’ trigger (fired, at 
the end of line 379, if all 40 mines have been disabled), will never be 
pulled. 

Once the mines are in position, printed in red (see the INK 
change at the end of line 90), the INK reverts to cyan in line 155. I$ 
is used to interpret your wishes. The first section (from 180 to 210) 
interprets information regarding the non-shifted keys “5” to “8” 
which control the inverter. The next section (lines 220 to 260) looks 
for the shifted versions of these keys. (Note that the CODE of IS is 
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taken in line 220, and this is used to interpret the shifted keys. This 
is auseful technique if you wish to read shifted keys at any position 
on the screen. To find out the needed CODE, just write a short 
routine to print out the CODE of the key you're depressing). The 
results of these readings are assigned to the variables A, D, CA and 
CD which are added to the current positions of the inverter and 
controller (A and D to the inverter, CA and CD to the controller) after 
the ‘old’ positions of each are overprinted with blanks (line 270). 

The variable N is given a value equal to the ATTRibutes of the 
new position of the inverter, with CN being given the value of the 
controller position’s ATTRibutes. Line 320 reprints the two objects 
and line 325 adds a short BEEP. As you can see, the length of the 
BEEP is related to the value you entered at the start of the run for 
the difficulty factor. The higher the number you entered, the longer 
the BEEP produced in line 325. As you know, allaction stops on the 
Spectrum when the BEEP is sounding, and using a variable like this 
is a useful way to get both a sound and a degree of control over the 
speed with which a program runs. If you find the program too 
difficult, even at level five, change the nine in line 57@ to some 
smaller value. If N equals 40 or CN equals 40 (line 330) then the 
computer Knows you have hit the wall and the program goes to 
line 400 for the unhappy news: “YOU CRASHED INTO THE 
ELECTRIFIED BARRIER”. Lines 340 and 350 make the needed 
changes to the mine (if your inverter is over one), turning live mines 
safe and vice versa. If the value of CN is 42, the Spectrum knows 
you have hit a live mine and thus terminates the game by going to 
line 440 where you are told: “YOUR CARRIER HIT ALIVE MINE” in 
flashing, red letters. 

If you have cleared a mine (attribute CN is 41, line 370) the score 
(S) of mines cleared is incremented by one. If S equals 4@ (end of 
line 370) then the computer knows that all the mines have been 
cleared and activates line 47@ to congratulate you: “YOU MADE 
ITU”. If neither of these have happened (that is, you have not hita 
live mine, and you have not disabled all the mines), line 380 sends 
the program back to 160 to continue the process. 

The rest of the program, from 400 to 510, contains the end of 
game messages and some short bursts of Spectrum symphonies. 
Once you become a supremely confident master mine disabler, 
delete line 325 and see how well you do. This is the ultimate test. 
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: 2 
INK = PAPER S: SLs : BORDE 


ga 
R &: INK LET T=" 
SQ LET S=@8@: LET ®=16: LET Yei 
3 a LET ¢C=+16: LET CY=+2@; LET & 
&5S LET Aza: LET bD=@: LET CAheH1 
FOE PLOT 4,4: BRAW 247,06 
SB@ DRAW @,287F: DRAW -247,0 
OP DRALI @,-157: INK 2 
280 FOR I=1 TQ 46 
Z31@ LET TXEHEINT (RANDs3Q1+1 
2320 LET TY=eINT (RND2s1&63+2 
A3@ IF SCREENS (TY.TX1 ="" THEN 
ro TO 218 
340 PRINT AT TY ,TRM;* 
3508 NEXT Tf 
22a ENR S 
25@ LET Is=INKEYS 
378 IF Is="" THEN GO Ta 2°76 
48@ IF Frsa"S" THEN LET R=--4: LE 
YT DP=@: GO TO 278 
190 FF rs="3" THEN LET A=: LEY 
D=@: GO TQ 276 
SOO IF Is="5" THEN LET RA=G: LET 
Dsl: GO TO 27a 
#48 IF Ise="7" THEN LET A=G&: LET 
rs-i: GC TA 27a 
SSA LET T=CObpE rs 
B23Q IEF T=8 THEN LET CA=-1: LET 
Oa BOQ TO 27h 


(249 IF T=9 THEN LET CAs: LET © 
D=O: Ga Ta 27e 
= TF =i THEN LET cCA=G: LET 


GS Cay TT 2 


chs: a 278 
“B65 IF I=ii THEN LET CAs@: LET 
“B7@ PRINT AT CY,OXs" “GAT Y¥,XiT 


2S0 LET X=X+A: LET Yer+ 

BOA LET Cx=Cx%4+CA: LET ay =CY+CmH 
SA@ LET N=ATTR (yY,X} 

S10 LET ON CATTR (OY .Ox) 

S2@ PRINT INK FAT YX RS AT SC 

al : Ee ie 

BE5 BEEF SP,n 

23e TF N=4@ OR CN=4@ THEN Go To 
Nat 

342 IF N=¢2 THEN LET TS=CHR 

+CHRS 2+ a" . “ih 
SS@ IF N=42 THEN LET TS=CHRS 16 

=" 


=t¢2 THEN GO TO 446 
7G IF CNs4i THEN LET S=S+1: IF 
=edO THEN GO TO 475 


ze of RSF 
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38@ GO To 160 

40@ PRINT FLASH 1; INK _@;AT 9,@ 
i’YOU CRASHED INTO’ THE ELECTRIFI 
ED BARRIER"; 

a21@ FOR I=1 TO 20: BEEP .02,-@ 
42@ BEEP .92,5: NEXT I 

238 GO Ta sae 

448 PRINT FLASH 1; INK 2:AT @.2 
; "YOUR CARRIER HIT A Niue MINE’ © 
450 BEEP .2,-20: BEEP .5,-5 

458 GO To Saa 

o278 PRINT AT 4,9; INK @; "YOU NA 


= a 
Si@ PRINT “YOU CLEARED ";S:" MI 


ES AS 

S2a PRINT “.omcmommooaomelLlEARAWF 
VenennneamneEnerGUlR TRASK IS TO CLE 
R THE SCREEN QF MINES. THIS I5 fF 
TWO-STAGE OPERATION, FIRST THE 
MINE NUST BE DEFUSED BY PASS 


NG THE INVERTER (#) QUER IT 
2THIS_I3 CONTROLLED USING KE 
YR S& Ya &. NEXT, THE DEFUSED 


ENE MUST BE PICKED UP BY THE ca 
LLECTOR (tm). THIS IS CONTROLLEC 

Ry KEYS 3 TO 8 WITH THE CAPS SHz 
FY ALSO DEPRESSED. THE CoLhL 
SoTOR NUST NOT HIT A LIVE NINE 


BBQ PRINT *‘’ "ENTER SKILL LEVEL 
1-53 ScERSY PRESS 6 TO STOP." 
S48 LET IS=INKEYS 

SSQ IF Is$<"3" OR THs"'6" THEN GO 
TO S46 

SEQ IF ©g="6" THEN STOP 

Brea LET SP=svat. I$-9 

S38 GO To 46 

eee READ AS: IF Ag="Z" THEN RET 
UR 

iG FOR I=@ TO F 

Bla REAC N: POKE USR A*+I.N 

E30 NEST fT 

Baa GO TO 68a 

BSG DATA "A',8,¢6,0,680,62,255,68 
a) 

BBS DATA "B",36,36,855,60,60,85 
=,.36,3 

670 DATA “C",@,8,245,254,254,25 
3,255,904 

Baar DATA aaa 
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COPTER 
Here's a program to test your flying skills. You have four heli- 
copters and your task is to wipe out a set of marauding red lines. 

You wipe out the lines by landing on them. You must land first on 
the shortest red line you see, then the next shortest, and so on until 
you've landed on all of them in order. One false move and you lose 
your chopper. You have four helicopters with which to complete 
the mission and you'll get bonus points if you manage to do it 
without using up all four craft. 

You fly the little machines using the "0" key to rise, and "5" and 
“8” to move you left and right. Gravity automatically drags you 
planetward if you do not apply thrust. Your final score is related to 
the amount of fuel you have left. If all four copters crash before you 
have destroyed the red lines you'll be faced with the grim 
message: "Copter terminated”. There is a high score feature. 

Line 10 sets the BORDER black, the variable h is set to zero in 
line 15 (for the high score, see lines 532 and 535) before the yellow 
INK is selected (line 20) and black PAPER (line 30). After this, the 
program goes to the subroutine starting from line 618 which 
POKEs DATA from line 900 into the graphic “a” position to create 
the tiny helicopter you see in line 45. 


Arcade Games 33 


After the graphic has been defined the screen clears, es- 
tablishing your black PAPER. The loop from lines 50 to 70 prints out 
a solid yellow block, using a yellow PAPER and a line of spaces 
within the quote marks. Two arrays are DIMensioned, to hold and 
order the lines upon which the ‘copters must land’. The a loop runs 
fram lines 10@ to 180, using the random number generated in line 
110 and the PLOT (line 150) and DRAW (line 160) commands to 
produce a most effective landing base, as will become clear when 
you run the program. The routine in lines 12@ and 130 ensures that 
ten lines of different lengths will be held in the d array. 

The variable ris assigned to one in line 185. This governs the line 
on which the copter should be landing (when r is one, you are 
aiming for the line represented by d[r]). Your fuel variable, f, is set to 
25000 in line 190. As well as controlling the fuel, f is used to set the 
pitch for the sound generation in line 240 (divided by 1000). As 
you'll hear, this produces a sound which fits in well with the action 
of the helicopter. The fuel is decremented by 21 in lines 250 and (if 
you're thrusting) 280. The p variable, your horizontal coordinate, is 
set to 16 in line 210 before your tiny craft is launched in line 220. 

Line 245 prints the’helicopters left’ (using IS defined in line 45, as 
three helicopters) down in the bottom right hand corner of the 
screen, and—after the fuel is decremented in line 250, and the 
amount left is printed in line 255 in the bottom left hand corner of 
the screen—your helicopter position is ‘unprinted’, prior to it 
reappearing. The variable u (assigned initially to one in line 200) 
controls your vertical displacement (the higher u is, the lower you 
are), and lines 275 to 290 read your intentions from the keyboard 
("0" to rise, "5" to move left, “8” to move right), before the 
program recycles to line 220 to reprint the helicopter in its new 
position. 

A landing is detected in line 23@ and this directs the program to 
line 400 where the landing site is checked. If this is not the current 
shortest line—that is, p does not equal d(r)—there is a mournful 
bump noise (BEEP .01,-10) and 100@ units of fuel are taken away 
from you before the helicopter is printed in inverse for a moment 
(line 412) and another mournful sound is heard (line 413} as the 
helicopter vanishes (line 414). The string IS is checked. If it equals 
the null string (" "}, then the computer knows you have run out of 
helicopters. You'll recall that |S was set equal to three helicopters in 
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line 45. Line 416 cuts one helicopter off the end of this string after 
each landing so that when I% equals “ “, it knows the four 
helicopters have been used up (the fourth helicopter was not part 
of I% at the start). Line 418 returns the action to line 200, where the 
next helicopter is started on its mission. 

Line 400 checks to see if it was a successful landing. Having 
found that it is, it bypasses all the bad news of lines 405 through to 
418 and jumps straight to 42@ where the helicopter is unprinted, 
and the top of the red lines is shaved by line 425. A small BEEP loop 
gives you amoment to catch your breath and the variable r (which 
counts the number of lines) is incremented by one. If itis less than 
eleven there are still lines left on which to land. If not, the unused 
helicopters are blotted out (by line 490) and the fuel is incremented 
by 1000 units per remaining helicopter, thus ensuring you get your 
bonus for unused craft. The new fuel figure is clocked up 
progressively (line 52@) as it is worked out. 

The high score is adjusted, if necessary, in line 532 and then 
printed by the next line before the program goes to line 310 to 
announce that the game is over. If you have not managed to wipe 
out all the lines (that is, r is less than eleven) then the failure 
message “Copter terminated” appears. Lines 330 and 340 wait 
until you take your finger off the keyboard (line 33@) at the end of 
one round, then replace it again (line 340) to signal that you are 
ready for a new round. When you are, the program moves to line 
4@ which clears the screen (but does not redefine the character nor 
reset variable h, the high score variable) and sets you off again on 
another mission with four new helicopters. Good flying. 


& REN Coeter 
35 BORDER & 
85 LET A=8 
SG ZMH & 
2G FPRRER & 
35 62 SUF £18 
4@ LS 
45 LET ib=-“3e2R" 
BG FOR a=ia FO 22 
€8 PRINT AT 2,8; PReEoR 8; 
YG MERT 2 
BS DIM di 
SQ DIM ef 
386 FOR a= ao 
338 LEY B=2NT i!RNPs32) 
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4322 IF eft b+33 =4 THEN GO TO 218 
33@ LEY e fb23 =i 

3208 LET @ (33 =b 

4156 PLOT bsR14,57 

268 DRAW INK 2:8, -af2+A 

2528 NEXT a 

185 LET = 

328 LET 

2G LET us 

#i@ LET p=is 

eh PRINT INK 4; RY u,b; UR 

250 FF u=G+r THEN GA TO «ga 
242 BEES .24,F -i Bee 

e405 PAINT INUERSE 1; AT 24.2373 15 
SSS LET ¢or-2i 

PRIN AT £243 ,8; INVERSE a; 'F 

2RG PRINT AT u-p;" " 

28 LET ususi 

275 LE 3 =S=3N 81242235 

SRG IF THT (3 vei sive FHEMN LEF wu 
su-ieus3i: LET Fer-24 

230 LET poptiig=eSi OF 1-258) 4(p 
tGii-tIN BS483R «253 + ip > 

Lee CGO TH 228 

wI@ PRINT AY F,132; INK 5: "SAME 
SVERS 

Bee IF -+33 THEN PRINT AT 31,8, 
PRPER 3; FLASH 3: “*capter termin 
ated” 

Boe IF INKEYS@<o°" THEN eo roe oo 
Fe 

340 IF TNKEYs="" FHEN GO To e442 
25a GO TH 428 

2@@Q TF p=dir3: THEN Ga Fao <28 
485 BEEP _,2@1,~-i8 

438 LEY Foi -iBee 

432 PRINT IFNUERSE 3:;AF op. p; "2" 
4433 BEEP .3,-28 ; 

444 PRINT AT u.e:* ¢ 

£45 FF is="*"* THEN Go TO 2318 

4246 LET igs=ists Ta } 

418 ee ae eee = 

426 PRINT eyeg 

425 FPRINT AT 4047.85 ° | 

436 FOR a-@ TO 28 

448 BEEP .21,;8 

458 HEXT a 

462 LET rardvi 

47@ FF r<i4 THEN GO TO 286 

48@ FOR a=-i TO LEN if 

438% PRINT AT 21,26+a; "EE" 

Bae@ BEEP ,5,axi0 
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MAZURKA 

In MAZURKA, you face the shootin’ challenge of your life. Set ina 
fairground, this game is like the Duck Shoot ones where you have 
to shoot down ducks and other objects passing in front of you. 

This computer version of the game, however, has additional 
hazards. Several rows of objects move above you in MAZURKA, 
partially blocked by four barriers moving in the opposite direction. 
Your aim is to hit as many of the objects as you can without hitting 
the barriers. You move your gun (graphic “H”) using the keys “5” 
and “8”, moving in the direction of the arrows on those keys. The 
trusty “F” key fires your gun. Only one bullet can be on the screen 
at any one time. You have limited ammo and the number of shots 
left is indicated by the length of the line below you. 

As you can see from the sample printout the screen is a wild 
cacophany of moving objects, creating an exciting display. 
However, this is not all. From time to time a duck will fly across the 
screen, somewhat like the rogue mother ships which appear 
occasionally in ‘galactic intruder’ arcade games. You get a bonus of 
six points if you hit the duck and lose 15 points if you miss it. It is 
fairly easy to hit, as the duck flies be/ow the barriers, as you Can see 
in the sample run printout. 

The subroutine from line 6290 is called from line 20. This routine 
defines the user-graphics, using "A", "B","C","D","E","H", "1" 
and “J”. When line 600 (READ C$) comes across the “Z” in line 
750, this triggers the RETURN. Back near the start of the program 
(line 30), the PAPER and BORDER are turned to yellow (colour six) 
and the screen cleared to establish the PAPER colour. Line 35 puts 
the INK to black (colour number zero) and the program goes to line 
500, where the instructions are printed up: 
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YOU HAVE TO SHOOT THE OBJECTS MOVING ABOVE 
YOU WHILE AVOIDING THE BLACK LINES. THE HIGHER 
THE ROW, THE GREATER THE SCORE. MOVE THE GUN 
WITH THE KEYS 5 AND 8 FIRE WITH THE F KEY. ONLY 
ONE BULLET MAY BE PRESENT AT ANY ONE TIME AND 
THE NO. OF SHOTS REMAINING IS SHOWN BY THE 
LENGTH OF THE LINE UNDER YOU. EACH TIME A DUCK 
GETS TO THE END OF THE SCREEN, 15 SHOTS ARE 
DEDUCTED FROM YOUR TOTAL NO. 


After this you are asked to enter “Y” to start the game. This 
instruction and “ENTER Y” routine occurs at the end of each 
game, so you can exit from the program at this point by entering an 
“N” or an “n". Any other key, except “N” or “n" will give you a 
new game. Subsequent games do not, of course, trigger the 
subroutine from line 609 to initialize the graphics. 

Back at line 49, variables are initialized, and the string array which 
holds the moving targets (A$) is dimensioned. The loops from 69 to 
100 randomly assign targets to the strings. They are printed by line 
95 and a rising tone is created by line 97 as the program is setting 
itself up. The B at the end of line 100 controls the length of the line 
which appears beneath you, i.e. the line whose length is related to 
the shots you have left. B is decremented in line 210, and the end 
of the line is wiped out by the PLOT OVER which follows. A&(5) is 
set equal to the moving barriers, so we have AS(1) through to AS(4) 
as Objects for shooting, and A&(5) as the barrier which will do its 
best to impede your shots. Line 107 BEEPs to let you know things 
will soon be under way. 

The | loop, from lines 110 to 359, is the main part of the program. 
It controls the movement of the objects in the loop (setting TS to 
the first element in the string in line 120 and adding this in line 130 
to the end of the string which is stripped of its first character), and 
then prints them (line 14@), choosing different INKs for each line 
(the top line is blue, the second red, the third magenta and the 
fourth line is printed in green). After this, line 17 blanks out the 
position where the human marksman was printed and line 180 
changes the value of the human’s horizontal position in accord with 
the key press detected in that line (line 190 adjusts the position if it 
is far to the right or left). 
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You are reprinted in line 209. If B is zero, all shots have been used 
up, SO action goes from line 205 to 430 where you are told you've 
run out of ammunition. Line 210 is the one which checks to see if 
you can fire (if F equals one, no bullet is in the air, so itis OK to fire). 
Line 21@ also sets the horizontal coordinate of the bullet (FX) equal 
to the human horizontal position (G). F is the vertical coordinate of 
the bullet, so (F, FX) is the location where the bullet needs to be 
printed and subsequently unprinted. Line 240 decrements the F 
coordinate by one (which has the effect, when the bullet is 
reprinted, of moving it one line up the screen). 

Your marksmanship is tested in line 250. If SCREENS (F, FX) is 
found to be empty, no object lies directly above the bullet. If an 
object is found, a test is applied to see if it is the barrier (lines 260 
and 265 test this; if P equals five you have hit the barrier). If you've 
hit the barrier, the game is over and the computer goes to line 400 
to tell you the happy news. If you have not hit the barrier, but you've 
hit something, that something must be one of the objects at which 
you're aiming. Line 270 gives you a score related to how high up 
the object is (the lower the value of P, the higher up the screen you 
are). Once you've hit an object the bullet must stop, so F is reset to 
one (see the end of line 270). If you have hit the duck, P will equal 
six, SO you get a bonus of six points, and the variable D is reset to 
zero. The program jumps from here to 300 if a duck has been hit. If 
it has not, the score is printed, flashing, by line 275 and the element 
of the string which holds the object you hit is set to a space, so the 
object disappears. 

If you have not hit anything (so the GO TO 300 at the end of line 
280 is not reached), line 290 prints the bullet. About once in every 
50 passes, line 300 will generate a new duck if there is not one on 
the screen. Line 320 moves the duck and 33@ checks to see if it has 
reached the right hand side of the frame. If it has, the duck is erased 
by this line, D is reset to zero, (the ‘no duck’ condition) and 15 is 
subtracted from your bullet tally before the bullet tally line is 
‘undrawn’. The last part of line 33@ (GO TO 350) jumps over the 
duck PRINTing in 34@. Line 35 ends this master loop. 

You'll recall that AS (5) holds the moving barriers. In 36@ TS is set 
equal to the final element in A& (5), and this is moved to the front of 
the string in line 379. This is the opposite of what happens to all the 
other elements of the A% array, so the barriers move in the 


ee 
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opposite direction (although at the same speed) to the target 
objects. 

Line 380 prints the barrier and 39 sends action back to line 110 
where the master loop begins again. Lines 400 and 420 are 
triggered if you hit the barrier (P equals five, from earlier in the 
program) and after telling you this, the program goes to 450 to print 
out your score. If you run out of bullets (that is, the variable B equals 
zero) lines 430 and 44@ are triggered: “YOU HAVE NO MORE 
BULLETS LEFT”. After the end of game messages, the title page 


re-appears, and you enter anything except “N“ or “n” for a new 


game. 
Here is the program in action: 
thay 


And this is the program listing: 


228 GQ SUB 68a 
3O PAPER 6: BORPER 6G: CLS 

NK @: GO Ae See 
4@ LET G=26: LET Fei: LET 5=8 
S@ LEY FxX=8: DIM ASIS,32)3: CLs 
6@ FOR I=iI TO 4 


w=3i TO 32 
AS TT,.J2 =CHRS CINT CRNDs 


= PRINT “gt 233. ,O@; ASTD 
120 NES Tt: LET 8=256 
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1@2 LET pee: Ona @ 

105 LET AS(Si = es ere 

1@7 BEEP 1,2 

113@ FOR I-14 TO 4 

32@ LET Ts=AS(I,1) 

43@ LET AS(TI=s=AS(IT,S TO 314+Ts 

iz PRI INK 32; AT  r#o. BW, RELL 
A?@® PRINT AT 20,6;'° 

pa ie a GaGr (INKEY $=°8") - LINKEY 


19@ LET G=G+ (G=-1) -(G=32) 

2@@ PRINT AT 26,6; "k* 

205 IF B=@ THEN GO TO 438 

210 IF _ F=1_ AND INKEYS="F" THEN 
; “: LET Fo2e@: LET 

FXG: BEEP -@2,-15: LET B=8-1: 

PLOT OVER 1,585,080 

2208 a AT [ad eee ae 


23a Pea THEN ao To 3a0 
S4@ LET FaFo4 
2S@ IF SCREENS (F,Fx)=" “ THEN 


60 TO 296 
26@ LET P=F <3: BEEP .,@2,6 


2P2 IF P= S. THEN, LET S=S36: PRIN 


uae 16,FX LET D=@: GO TO 3 
“275 PRINT FLASH 1; Re @,18;5 
aS LET AS(P,FXR+1) StS EV EY 5S 


a 
29@ PRINT AT F,FX, "a" 
S@Q IF D=@ AND RND>.9& THEN LET 


@ IF P=8@ THEN GO TO 35a 
@ LET D=D+1 
@ IF GBb=31 Uae ee Br 218,02 


LV 
Lone 1 


r 
ous 
Du 
ll 
r 
Il 
a 
| 1 be 
o) 
fe 


g EEP 
PRINT AT 18,2;" 


@ NEXT 

@ LET T#=AS (5,323 
2 LET ewe eae ao 
a 


TO 31} 


i) 
t 


{ 
PRINT AT 15,8; Ag (S) 


-2 
42380 PRINT FLASH 2;R87 ©@,80; YOU & 
IT THE BARRIER 

420 GO TO 458 

mie eS ee abo [sta] pS eas 

PRINT FLASH 1; AT B.8; "YOU HH 

AUE ONO MORE SULLETS LEFT 

45@ PRINT cae a; INVERSE 1; "¥ 
OUR SCORE IS 
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REG PRINT “ELELEEELEL POT SHOTRLE 
ELLLELEELEEE' “YOU HAVE Toa SHoOaT 
THE QBJECTS MOQUING ABOQUE yau 
WHILE AVOIDING THE BLACK LINES 


»- THE HIGHER THE ROW, THE GRE 
ATER THE SCORE. NOVE THE GUN WIT 
H KEYS = AND & FIRE WITH THE F 


ESENT AT RNY ONE TINE AND THE 
» OF SHOTS REMAINING IS SHO 

WN BY THE LENGTH OF THE LI 
NE UNDER YOU. ERCH TINE A OUCK 
GETS TO THE ENP OF THE SCREE 


N, 25 SHOTS ARE DEDUCTED FRON YO 


S1@ PRINT te epReESS Y TQ STRAT, 
NTO sTap" 


S20 IF INKEYS="" THEN GO TO S2e 
SR@Q IF INKEYS="N" OR INKEYS="n”" 
THEN STOP 

3¢4e GO T 48 

Sag 


STOP 
6@e READ CS: FF Cg="E" THEN RET 


610 FOR f=8 TO ? 

62Q READ N: POKE USR CS4+HILN 
NEXT I 

640 ee TO 6e@a 

“AS, BIN @A11e8Re8, pes a 


650 
1ii8eaa, BIN @81e8@001,BIN BO11I54 
2BIN 90011100, BIN eeeaieee, + BIN 


agai igen, 255 
,GIN oa Bin ag 2S 


1éa11901,255 

eee PATA "“D',BIN @1111188,8IN 3 
QO1RA010,254, 254,BIN 110@@1128,B8IN 
S@l11119¢6, BIN @@1112888,255 

665 DATA "EE", BIN aeliiaae, BIN @ 
B111a800,16,254,16,48,40,25 55 

6306 DATA “HS BIN eeiiiéeo, BIN & 
@1110G0,58IN Gariileee, BIN ARRAS 
, BIN @@e11110, BIN aohatieea, BIN 

a@aiiiii, BIN @@10@1111 

7aa DATA “T',0,08,8,28,28,28,62, 


2 
FAQ DATA “ut, @,8@,32,18,255,BIN 
1a211800, 16,32 

75a DATA "Zz" 


S 


UDG- L=H a=1 =. 
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ALPHABATTLE 

In this unusual game you are in control of a green helicopter while 
the Spectrum takes charge of the blue, swing-wing jet fighter. You 
are battling for possession of the alphabet. The letters you own are 
down the left hand side of the screen and the computer's are on 
the right. 

Using the “5” and “8” keys to move horizontally, and “w” and 
“2" to move vertically, you position yourself in front of one of the 
enemy’s non-flashing letters. You then press “o” and immediately 
the corresponding letter on your side will start flashing. The enemy 
letter will vanish, your score will be incremented, and you'll be 
transported back to the right hand side of the screen for another 
foray into battle. Note that you can press more than one key at a 
time (as IN, rather than INKEYS is used to read the keyboard; see 
lines 410 and 420) so diagonal movement is possible. While you're 
doing all this, the computer is similarly engaged in stealing your 
letters. 

Hovering in front of the letters and pressing “o” is one way of 
obtaining letters. There is another method. If the computer’s blue, 
swing-wing jet fighter is on the same line as any of its non-flashing 
letters, you can position yourself on the same line, and fire at it 
using the letter “o”. The computer will also try to fire at you, so the 
display can get quite lively. 

The game ends when all of the letters have been captured by 
one side or the other. The computer will then display the winning 
score. (You, by the way, are referred to as the ‘humanoid’ in the 
score sequence.) 

Lines 10@ to 150 define the graphics (the letters used are “a”, 
“b", “oc” and "d") reading from the DATA from line 900. Two arrays 
are dimensioned, p and t, and 22 letters of the alphabet are 
distributed to each array, positioned randomly within them, and 
printed. 

Your helicopter’s position is defined by the values of u and p. The 
vertical coordinate (p) starts at 29 (see line 290) and the horizontal 
One above the position where your last letter was printed. The 
computer's position starts at a similar location in relation to its own 
last letter, using a and t (which starts at 1, see line 31@). Lines 410 
and 42@ read the keyboard, using IN as mentioned before, and you 
are printed by line 430. If you have decided to capture a letter, or 
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fire at the computer's craft, line 440 sends the action to line 580 
which further directs the program to the subroutine from line 1050 
which fires your laser weapon if needed. If a equals u in line 440, 
then the program goes to 700 to capture the letter and increment 
the score. If you are hard over to the left, p will equal 1, so the 
computer will go to 700 anyway to do those two tasks. 

Line 460 blanks out the position of the Spectrum’s fighter and 
uses the next routine to determine its new position. The variable a 
which controls the vertical position of the jet is changed in line 480 
and t is changed in the following line to bring the jet closer to your 
helicopter. Lines 610 and 62@ add a random element to the 
computer jet movements. 

Line 650 reprints the jet in its new position and the start of line 
660 determines whether or not the jet will try to shoot at you, 
sending the program to the subroutine from 100 if it does decide 
to take a shot. If tis 29, the computer knows it is over on your side 
of the screen, so it sends action to the subroutine from 1100 which 
captures the relevant letter. It then unprints the letter at the same 
height on the left side, going to the subroutine from 80@ for a 
victory trill before returning to put the letter in place. If the scores 
achieved by you (s) and the Spectrum (x) together total 22, the 
game is over and line 735 redirects the program to 1200 where the 
screen is cleared before the result of the ALPHABATTLE is © 
declared. Line 745 unprints the jet from its old position, and resets 
p and u before returning to line 40@ so the merry dance can begin 
again. 


88 REM Alphabattie 

8&6 FOR |ae=-1 Ta 4 

34% FOR b= TO 7 

328) RESD c 

430 FORE USSR CHAS S34R+¢a2¢5,0 
348 NEXT b&b 

4208 WEXT a 

2OG DIN pli,223 

BRS DEIN tif.#23 

228 FOR P=2 TO 22 

S35 FOR fF=4 To =e 

#26 LET e& =INT (RNDsS2: 
Bs IF pirf,¢e¢+313:?8 THEN ¢€2 To 22 
2#4@ LET pif,@+i3 =p 

25@ PRINT INK OS: AT ¢, (Ff s=b 2330 
PRS iha4+r3 

SES LET tif, priser 
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262 NE; S@ LET p=2o2 _ ue Pe 
27a NEXT & 5ea IF wre PRCN LET Stee. pe 
Zea LE aay -a 765 PRINT #1; AT 1,@;"Score “s {% 
230 LET ¥ » "Score “3 {3% 
3@@ LET ¢ B2i-1 77a GO TO 42h 
Siw LET " Bae BEEP 885,12 
BBG DIN h 3 BiQ BEEP .21,28 
Soe LEFT s BEA BEEP .a85,18 
248 LEY x EGA RETURY 
48 PRINT stat ae ce BS@ FRINT AY a,t;** i 
4i@G LET p +fiIN 82 SQ LET a=u 
2G} —t In BHtSG<.3BSS: BP? GO TO 11468 
#28 LET uesiegiith aso GOR DATA ©@,54,45,562,023,33,;33,a2 
i: -tIN 64548. >558) S85 DATA 8,8,6,8,192,252,8,0 
$38 PRINT AT up; B1l@ DATA @,23,7,15,31,8,127,8 
428 IF IN SPS4e 4325 Se PATA 86,238,238 ,2346,25¢,16,2 
EN GO SUB Sha: IF a 54,8 
PES 3800 PLOT OVER 1; (t+2128, (21-33% 
$58 GF p=i THEN GO To Fae S+3 
Hee As aR B,ti” n ae DRAW OVER 1; INK 3; ip-tisa, 
°@ EF Pptl.u+hi<ia THEN Gao ro s 
Se / 3@G@ RETURN 
460 LET asariact-—fe.u2 1858 PLOT OVER 4; ps8, iBaA-vi +8 
40@ LET t=i+{RBS (2-01 sRBS it-p 2860 DRAW OUER 4; INK 5; ii-pi 2, 
bI-{fRBS {a-vishes ft-piisitsar 8 
See Gh To 858 1878 RETURN 
S58 IF Hii, ,pif,s+is}}si_ OR Riz,p | 1i8@ IF hla,Pptiea,atraAiizi Of Aiaisp 
{2,at¢bisiscl THEN Ga Ta sas {2,a+4+113=31 THEN GO TQ iff 
Eee LEFT t=i¢es2 Z31@S PRINT AT a,Baz;' " 
GSYea GO To 65a Li30% GO SUE see 
ESA GO SUS LAS Li20@ PRINT FLASH A; AT tta,e iB. at 
SSG BEEP . ABS .Se GA BU IBoSe 233 -1,0; CHR (G¢ep{f,a3133 
Sos RETURN j 2198 LET x=x+ithiil,pif,a+2}})3 = 83 
SAG LET r: =ANDB 23428 IF x+s=22 THEN of TO Ape 
6318 TF RND:.5 OH weit THEN LET I 3358 LEY Hiit,pi2,at+i3)> <3 
a=a-{a>8) = = oe 3iS@ FRINT APF 3a.,t3" Bs 
BEG TF RNG:+.5 Of a=8 THEN LET a 2iPFe@ LET te=1 
Bat iaiees : : . 138@ IF vw=a THEN LET a=tu=8) 
GEG CRIN AY 2@,i; INKS) ° = 1138 GO TO ?655 
66@ IF ABS (a-ui<«G AND pot AND j 220@ CLS ; 
hil,piti,u+i}:=G@ AND Hifa,pti,uii} 32285 PRINT AT 343.432; "GAME OUER' 
358 THEN GO SUB 18280: BEEP .@@8, | 3230 PRINT AT 39.8; ; 
@: GO SUB 28688: FF a=-u THEN Gf T 2228 PHINT “spectrum “; 
a 85a 2230 FOR a=i TO x 
B7YOQ IF t=223 THEN GO TO ine | 8240 PRINT "6"; 
S660 GO TO daa 4258 NEXT 32 Seer 
YO@OQ IF Hti,PpPtli;usdiii=si GRA AfS.5 } 4236@ PRINT TAG S5:;x'“humancird “>; 
f2,U4+313=3 THEN GO To 745 3278 FOR a= TO 5s 
825 PRINT AT u,@;"% ™ 3388 PRINT “A; 
7i® BO SUR S22 2238 NEXT 2 
722A RINT FLASH 2 YT tif,fit.,ut 2320@ PRINT TAB 25;3 
333 -2,343; CHR (8493p ta,u4+i33 A340 IF INKEYS<3"" THEN Go TO 12 
FOO LET s=stithta.,pti,utilii =a) id = be 
725 IF s+x=2Bi THEN @o FO i2ee iG208 IF INKEYS="" THEN GO Fo iss 
742 LET hiasRpiad.ws+3)2 <3 & 
P45 PRINT AT u,o 3" a 2338 RUN 
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SMASHOUT 

In this colourful version of ‘Breakout’ you have to try to break 
through the brick wall using a sharp-edged, diamond-shaped ball. 
As you'll see when you run this game, the graphic “A” has been 
redefined to look just like bricks. The wall you are trying to smash 
through looks very effective indeed. You get 12 balls to bounce at 
the wall and movement of your paddle (at the bottom of the screen) 
is controlled by the “5” (left) and “8” (right) keys. The score is 
shown at all times and is updated on the screen when necessary. 

Line 15 sets the BORDER and PAPER to red, and the INK to 
white. The frame within which the game must be played is printed 
by line 20 (the top) and the loop in line 30, is green. (There is no 
need, of course, to stick to my colour scheme in any of these 
programs; different televisions react differently to the Spectrum's 
colour, and combinations which work well on my television may 
prove unsuitable on yours, so feel free to experiment). The variable 
S (for the score) is set to zero in line 35, and A and B (which control 
the flight of the ball) are both initialized at one in this line. Lines 40 
and 42 are loops which define the bricks (line 40) and the ball (42), 
drawing on the DATA statements, lines 210 and 215. 

The next loop, from lines 45 to 55, prints in the bricks. Note that 
line 55 consists of 28 graphics “A”. Line 50 chooses a random 
number to determine the colour of each row of bricks. The second 
part of the line checks that the chosen colouris not red (that is, two) 
which would make it the same as the background colour. If it finds 
that red has been selected (that Z equals two) then it goes back to 
the start of the line to choose a new colour. 

The next line, 60, determines the starting position of the ball. The 
ball is printed at X, Y and the variables which will be used to 
‘unprint’ the ball (DX and DY) are set equal to X and Y in this line. If Y 
is greater than 28 or Y is less than three, then the ball has hit one of 
the sides, so line 65 sends attention to line 155 where its direction 
is reversed (that is, it is made to ‘bounce’ off the side wall). 

If Xis less than two, then the ball has hit the top of the frame and 
line 70 bounces it downwards. Line 75 checks to see if the position 
the ball will occupy contains a brick and if it finds it does, goes to the 
subroutine from 125 which makes a brick-smashing sound (!) and 
changes the value of B, which is used to increment the Y value. If X 
is less than 20, the ball is at the bottom of the frame. Line 89, 
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alerted to the ball’s position by the X value, checks to see if the 
paddle is in the right position to deflect the ball. If it is, the bounce 
sound is made (BEEP .008,1@) and the variable A which controls 
the change in the ball’s vertical position is multiplied by minus one. 

The first part of line 85 uses the variables DX and DY to blank out 
the old position of the ball, and then the ball is reprinted using X and 
Y. Line 90 prints the paddle. Note how it has a space at each end, 
which means the moving paddle automatically blanks out its old 
position. The routine in line 95 reads the keyboard and uses the 
INKEY& reading and the value of N to change the value of N, which 
determines the position of the paddle. 

The ball position is updated in line 105. If Xis greater than 21 (line 
110), the computer knows the ball has missed the paddle and fallen 
out of the bottom of the frame. The subroutine from line 165 prints 
out the ball number, the ball variable (Q) is incremented by one and 
a ‘new ball’ noise is created in line 175. The number of balls used is 
checked in line 189 and if it is found to be 12 or less, the program 
‘falls through’ to the next line. If 12 balls have been used, the 
message GAME OVER***STAND BY is flashed on the screen ina 
variety of colours, as a sound loop generates some audio backing 
for the colourful flashing. After this breathless display, anew game 
begins. 

If the maximum value of O has not been exceeded a new starting 
position for the ball is generated, the bottom line of the frame is 
totally overprinted to remove the old position of the paddle, and the 
direction of the ball (either to the right and up, or to the left and up) 
is determined by the value given to M in line 185, and imported to 
the variable B in line 200. Attention then shifts back to line 60 
where the song and dance begins again. The final two lines of the 
program—21@ and 215—contain the DATA for the bricks and the 
ball respectively. 


106 REM Smeshout 
iS SGRDER 2: PAPER 2: INK ¥: C 


2@ PRINT EINK 4," 


te 


25 LET =i 
GA-FOR N=: FO za: 
INK 4; "EE 
#2: NEXT N 
GS LET S=€: LEF A=1: LET Bei 
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a6 
a5 
26) — 
2a5 
1198 


fet bd 
ee & 03 
ALN Toe | 


El 


we TD fos ft at | fed fa ft 
Di Jsrr Te 


alee 


fe 


ee 
& Ta 
FP .& 


185 
138 


295 
20a 
2@5 


@": LET DBx=x: 


mes 


42 FOR 15 ' Ta USR “AT+E: 
READ KH: + : NEXT N 

42 FOR Neu TO USR "B'+G: 
READ H: RE NK: NEXT N 

45 FOR aaa 

SQ LET EN IND‘): IF Z=2 T 
HEN GO TO 5G 

SS PRINT Al No; INK 22 BRIGHT 
HER wt SERRE ERAS 
“> NEXT 

6a i 


PRINT AF 21,N;" & 
Ess N=N+ CINKEY &= 
{INKEY S="S" AND NN: 

hy, .-A: LEG Y=¥+bB 
EF 322 THEN GO TO 155 


PRINT AT @,5; INVERSE 1; "sc 
";5: INVERSE @ 

G0 TO 65 

BEEP .G3s,26 ae 

Saati ar ushers “PA oxSYS 
LET A=-2 

LET S=S72 

RETURN 

SEEP ,e88,3¢ 

LET B=2-22(Y>28 OR ¥<2) 
RETURN 

PRINT AY @,2@; INVERSE 41:°B 
‘“;@: INVERSE © 

LET @=G43 7 

BEEF 1,@: BEEF &.82,28 

If @>412 THEN FoR zZ=1 To 18 
NF AT 5.5; INK RND#6; FLASH 
AME QUERSSsSTAND BY": FOR D= 


SG STEF 3: BEEP .@85,D: BEE 
@5,-(D}: NEXT B: NEXT <£: RUN 


LET M=RND 
PRINT AT 21,6; " 


LET R= 
LET B=-Bs (N<«@.5)3 +52 (M>=@.52 
Ga TO 6e@ 
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= READ agial 

48 HEXT a4 

SS BATR * a2 = 2 ae 3 

ae az al ss cous iL et 

an BB a. Bese | e x Poe iy 
me Net ; a 

SBE LEFT s=2 

69 LET a=3 

78 LET t=iNT URNDst22) = 

GQ PRINT AT 21,14; INK 2; “RRER 
ba i 

Be FOR b=i TO 32 

EMG PRINT AT Bth, ft: RetEINT ifthed 
ee} #233 

285 BEEP te-s,b 

18? LET S=st+i: PRINT AT &,8; 5 

118 PRINT AT a+b, @: 

320 LET t=t-{ CINKEY S$="B"isit>B} 
-fEINKEY Soa sit <BAIstINF (bedi 
‘’ 

“358 NEXT b 

46 EF t+434 GFR i<S THEN oo To 2 
Pat Sd 
368 LET i=-i 
370 IF i=-i THEN PAPER &: Shee 
Ro @: INK 6 
i6@ IF i=-1 THEN FPAPE INT (RNs 
Fi¢i: BORDER 4: INK =a 
238 CLS 
135 GO Ta 68 
#88 FOR a=i TR 2a 
BRR LET m=aiNT ftRNDs2s: IF on=2 T 
HEN GO TO 265 
BAGS PRRPER nm CL 
220 NEXT 3 
Sen PeeER &: FNK &: CLS 
aoe FPRIEINT AY 321,128; "Ecere “7s 
#35 PRINT AT 33,38; "“FPress any & 
eu 
a8 PAUSE & 

SoG RUN 

DEATH RACE 2000 


Can you elude the fearsome green creepie-crawlie and get through 
DEATH RACE 2000 before you are caught? This program will help 
you answer that question. 

The program creates a rectangular maze on the screen with you 
on the left and the aforementioned creepie-crawlie somewhere in 
the body of the maze. Using the “5” and “8” keys to move left and 
right respectively and “w” and “z” to move up and down, you have 
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to manipulate the little man-child (the figure at the end of line 24@) 
from the left to the extreme right of the maze. 

Line 5 seeds the random number generator and lines 1@ to 30 set 
the BORDER and PAPER to black and the INK to yellow. Line 40 
sends action to the initialization subroutine at line 500 where DATA 
is held for the two user-defined graphics (the man-child and the 
creepie-crawlie). Once the graphics have been defined, the 
program returns to line 50 where a function to generate random 
numbers is defined. The screen clears in line 55, triggering the 
PAPER colour set in line 30 and two variables x (the number to be 
used in function a to produce random gaps in the walls of the maze 
in lines 160 and 170) and s (your starting score, which is 
decremented in line 245 by 16 each time through the master loop) 
are initialized. 

Line 100 prints a solid yellow bar across the top of the screen and 
then the loop from 110 to 130 prints bars down the screen in cyan 
(line 12@) with the right hand side of the frame (line 125) in yellow. 
Line 140 completes the raw material for the maze with a solid bar 
along the bottom. 

Function a now comes into its own, printing blanks at random 
spots on the solid walls of the maze. These are the spots which you 
must use (and which the c.c. uses} in your breathless race for the 
right hand side. Lines 190 to 220 assign values to u (the horizontal 
coordinate of the man-child's starting position), t (the vertical of the 
creepie-crawlie’s start), a (the creepie-crawlie’s horizontal starting 
coordinate} and p (this is given a value of 1, as the man-child must 
start on the left hand side of the DEATH RACE). 

Line 235 checks to see if the creepie-crawlie and the man-child 
are occupying the same spot. If they are, the creepie has struck and 
the program moves to line 400 where, after a short snatch of the 
‘Creepie-Crawlie Victory Anthem’, you are informed that you lost 
the DEATH RACE. The rest of the major loop from 239 to 315 looks 
after reading the keyboard. 

“You won the Death Race” is the joyous news from line 360. 
365 checks to see if you've beaten the high score, adjusting the 
high score variable (h) to that of the score (s) if necessary, and lines 
370 and 375 print out the score and high score respectively. Note 
that line 370 uses the length of the string version of the score (LEN 
STR& s) to position the printout. Lines 380 and 390 wait until you 
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take your hands off the keyboard (380), then until you press a key 
(390) to start a new race (from line 55). When you're really 
confident of your ability in mastering the DEATH RACE, you might 
like to modify the program to have two or more creepie-crawilies. 


RANDOMIZE 


tne 


, 


3 


THT fRNDss2 +1 


418 FOR a=a Ta 2a 
225Q8 PRINT INK 5:;" BEES EE 


eft} PRINT AY 2,38; INVERSE 3: " 


43@ NEXT a "9 
148 PRINT AT 24,8; INVERSE 4; 


45@ FOR s=2 TO 2& STEP 2 

360 PRINT AT FN Bix},3;" " 

47@ PRINT AT FN afxai,ac” " 

488 NEXT = 

39@ LET U=FN 32 (x) 

2e@ LET S=FN atx) 

BIO LET p=1 

BRO LET t=FN a{15) ¥2-4 he 
230 PRINT AT INT 5,1; INK 4)" 
235 IF ATTR (u,p)=4 THEN GO TO 


24@ PRINT AT u.p; “é" 
BGS LEFT 2s=3-16 

SSQ@Q BEEP .085,5 “288 
255 PRINT AT &. i: 


26@ PRINT AT u.ps _~ 

265 IF INKEYS= Bt “BND RITFR fl, p 
$4) =6 THEN LET pepi2: BEEP -1-8- 
BEEP .13,p-12 

2BPe IF INKEYS="5° AND ATFR fu.pP 
-33=6 THEN LET p=p-2: LET s=5-18 
@: BEEP .1,@ 

B7S EF p=29 THEN GO To 326 

PEG LET Ysus (INKEY Sov zs MAS seh 
-{INKEY S="“w"2 # tu3sqi 

BBS PRINT AT ANT 3,%;*° ™ 


INVERSE 32;3;" 
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PSO LET Sa=Sa+tRNDSCINT a yt) -RND SE 
INT Siti 
PAS IF STTR {INT 38,1114 =6 AND ft: 


3@@ IF ATTR iINT =2.?-12:3=5 AND ¢t 


33@ BEEP .93,23 
34@ BEEP 1aj.a-12 


S58 NEXT 
S608 PRINT AT u,B: BUER 3; “You at 
am the Death Rate" 
365 IF kiS THEN LET h=s 
S7@ PRINT AT Us1-2e fu=263 ,SA-LE 
N STR s;5 
37S PRINT AY @.21:; LASH th=si: 
EINVERSE 43; “HI-SCORE "jr 
3BB@ IF INKEYSis"°" THEN GO TO 38 
2 
3SBS IF IANKEYSs="" THEN GO TO 385 
B2ea GO ro S85 
4@@ FOR F=68 TO 3@ STEFF -1 
828 BEEP .~G1,F 
420 BEEP .@1,f-12 
430 NEXT F 
445 PRINT AY u+1-Be(u=28).7; ou 
ER 3; "You toast the Death Pare" 
458 PRINT AT INT 3,7; FLRSH Ee 
460 GO TOS 2Fs 
SG@ DATA 24,24,48,94,136,184,76, 
S2@ CATA @,34.84,142,12,84.324.08 
S28 FOR se=8 Tha 3 
SOG FOR b= TO F 
S46 REAG 
SS@ POXKE USR CHR fi4d4a34¢b.€ 
S6@ NEXT kb 
SB7G NEXT 2 
Sha RETURN 
CLONE CRAZY 
A single zombie has had itself cloned 19 times and 20 identically 
evil zombies are out to get you. You are trapped within a rect- 
angular area of Zombieland where the principal topographical 
features (apart from the zombies, and your poor hapless self) area 
number of pot-holes. 

The original zombie could be distinguished by two definite 
characteristics, a very keen in-built human tracking device, and a 
hatred of humans which bordered on the manic. As is well known, 
clones are identical to their ancestor in all things, so the 20 little 


a 


Arcade Games 57 


crazies in Zombieland are all after your blood. As well as inheriting 
the clone-ancestor’s skills, clone-members also inherit weak- 
nesses. The principal weakness of zombie number one was 
extremely bad eyesight which could be the key to your survival. 

You'll recall | mentioned that there were a number of pot-holes 
within the section of Zombieland where you've found yourself. The 
zombies’ human tracking devices, while remarkably good for 
latching on to the emanation of homo sapiens, are worse than 
useless when it comes to picking up the presence of pot-holes. 
Lure a zombie into a pot-hole and he’s a goner. Your key to survival 
then is to take advantage of the creatures’ weak eyesight and lure 
them into pot-holes by getting a pot-hole between you and the 
zombie. Remember, though, you have a score of thé little horrors 
to contend with, and while you're trying to lure one into a pot-hole, 
another one or more may creep up on you. 

You can move up, down, right or left, or—if you're feeling 
especially brave—may stand still from time to time. The zombies 
can move vertically, horizontally and diagonally. You start each 
round of CLONE CRAZY with four lives and a complete clone 
complement of 20 zombies. You'll be awarded a point for each 
zombie you lure into a pot-hole and six bonus points if you manage 
to rid the whole area of them. 

Each time you survive, the land will be redrawn, with a new clone 
colony and fewer pot-holes. If you fall down a pot-hole, get eaten 
by a zombie or go off the edge of the land, you lose a life. Four such 
blunders and you are fairly dead. 

The program has a high score feature, so you can look forward to 
spending the next five years or So trying to better your score. You 
move around the screen using the “a” (up), “s” (down), “k” (left) 
and “I” (right) keys. Any other key will stop you moving. 

After seeding the random number generator with line one, an 
array is DIMensioned to hold the clone-members. The variable rand 
is set to @.1 (line 15) and then action moves to the subroutine 
Starting at line 9000. The graphics for the pot-holes, zombie clones 
and you are set up and then, in line 9100, the BORDER is set at 
blue, the PAPER to yellow and the INK colour to black. A ‘title page’ 
is shown for you, followed by a reminder of which keys do what. 
“Hit any key to start” (line 9200) precedes a PAUSE @ which holds 
the program until you touch a key. 
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The RETURN in line 9900 sends attention back to line 20, where 
your available lives are set to four (the variable name is men, and 
this is one less than the lives you have left, so when men equals 
zero, you still have one life). The score variable is set to zero and 
other variables which will be needed soon are initialized (line 30). 

The address 23560 is POKEd with zero. This address stores the 
value of the newly-pressed key and POKEing it with zero has the 
effect of ‘cleaning out’ the key stroke held in there. Line 100 sends 
the program to the subroutine from 1000 which draws out 
Zombieland. The border is drawn in line 101, and then the double 
loop (i and j) from line 1020 places the pot-holes in place. The 
number of pot-holes depends on the value of the variable rand in 
line 1049, and also on the number generated by RND in that line. 

After returning from this subroutine, line 11@ directs attention to 
the subroutine from line 3000 which puts the zombies on the 
screen, counting them (start of line 3050) and keeping track of 
them within the z array (last two parts of 3050). From the 3000 
subroutine we go, via line 120, to the 2000 subroutine which places 
the man (that is, you) on the land. The elaborate series of “IF 
SCREENS...” lines are checking that the area surrounding the 
starting position Is clear. If it was not, you could be pounced on bya 
clone-member or stumble into a pot-hole before the game even got 
underway. 


SCOGRE:28 HE: @ 2s 
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If you look at this ‘sample run snapshot’ from a game, you'll see 
that the number of lives you have left is indicated by the little men 
up in the top right hand corner, above the land. The lines 130 to 150 
put these men in place, line 160 prints out the score at the top left 
of the screen and the high score is printed in the middle of the top 
of the screen by line 170. 

You'll recall that back in line 40, the address 23560 was POKEd 
with a zero, to ‘clean it out’. Now, we are expecting that you're 
touching one of the four action keys ("a", “s", “k", or “I"), and if 
you are, PEEKing into the address 23560 (as occurs in line 209) will 
indicate which key is being pressed. Before the computer acts on 
that information with the lines from 210 to 240, it sets two 
variables (tx and ty) equal to your present position. These variables 
will be used to ‘unprint’, if needed, in line 450. If you have not 
pressed any of the four keys, line 250 jumps over the routine which 
checks where you are, and reprints you. Line 260 runs a swift 
check to ensure you have not foolishly stumbled off the edge of the 
world, and 270 looks to see that where you intend to move is not 
occupied. If it finds something there, you have had it, and the 
routine starting at line 4000 puts on a dramatic son et /umiere 
display to press home your stupidity. If you pass the test of line 
270, you are reprinted by line 280. 

The routine from lines 30@ to 49@ is traversed until the value of 
the variable num (incremented in line 400) becomes greater than 
the value of go (which was originally set to equal four in line 30, 
and is altered in line 485). This whole routine contains the 
malevolent intelligence of the clone-members. An associated 
routine, lines 500 to 530, is entered via line 410 if the SCREENS 
test in that line finds a blank. If the number of zombies left (the 
variable left holds this information) drops to zero (that is, you have 
destroyed all of the clones as well as the original one—a fact which 
is ascertained from line 470) you get a bonus score (see lines 
8000 to 8050), and the value of variable rand is decreased (which 
means that you'll get fewer pot-holes, a process which is 
determined in line 1049). 

Once the zombie routine is finished line 305 sends attention 
back to line 200 and the process begins again. The loop from line 
7000 prints out the zombies, complete with a little musical 
accompaniment (lines 7020 and 704@). Once the number of men 
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has fallen to zero (see line 7060), the computer uses the routine 
from line 7070 to alter the high score if needed and to offer the 
option of anew game. If you enter “n” to indicate you do not wanta 
new game, then line 7090 sets the INK, BORDER and PAPER to 
start-up condition to make it easier to list the program or to enter 
another one. If you want a new game (and the “y” answer is 
detected, and acted on, in line 7080), the action goes to line 25 
which ensures that your high score (variable hi) is not reset to zero. 

Modifications which you may like to make to the program 
include changing the keys which move you around. To do this, alter 
lines 210 to 24@ where the numeric value of the last key entered is 
used (remember address 23560). If you do this, you will also have 
to alter the instructions in lines 9150 to 9180. To generate more or 
fewer pot-holes, change the initial value of the variable rand in lines 
15 and 7063. To modify the change in the number of pot-holes at 
the end of each round of the game, alter line 8006. The user- 
defined characters are “A” (for you), “B” (for the zombie and its 
clone) and “C” (for the pot-holes). 


3 RASNDCOSIZTE 

25 DIM 2 (3,23 

pry, eka sr  ieyet re 

35 LEY raend=8.2 

2S GO SUB oeea 

25 LEY .Hen=3: LET score=G 

BE LET ie ft=8: LET max=20@:. LET 
FRBRIeSa: LEFT goa +4 

28 POKS 23560.5 
Aga GO SUB 2868 
2328 GO SUB 3ec8 
2208 Ga Sun 25985 
i3e 3k HenonsS THEN PRINT AT ©,29 
128 IF meoent2 THEN PRINT AT @,36 
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Pees 
i136 IF Bens& THEN PRINT AT @,312 
RAC 
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Bie IF s=8? THEN PRINT AT 6FY,.PH 
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SPO FTF |a=115 THEN FPRINT RAY Pu.P 
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248 FF 3s=3858 THEN PRINT AT bPu.P 
NO 89) (et Pe Ses a Gene Leo 
SSS Ga TO Baa 
BEG IF EM <3 GR Pe>+3G OR puc2 GR 
EYsBAa THEN GO TO 4086 
2FQ IF SCREENS (Pyu,EM} ¢>" " THE 
N GO To sae 
2S@Q PRINT AT pul.pse; ck 
SEG LET nmum=G 
BES IF numsaga THEN GO To 2802 

BiB LET ZOmbis=FomMbiet+i: IF For 
S528 >Ha= THEN LET Faombisii 

= GF 2t(Zambisc.323=-+8 THEN GO TS 

we wk a? 

BGG LET zx sz(zembie.13: LET zy= 
Zi®Fonbiec,2) isSrietora sw or tas Sse 
ai 

S40 LET dx=@: LET dy=a 

SSG TF 2M ¢PM THEN LET ¢@x= 
GSG@ JF EM3EPX THEN LET dx=-1 
3BYSB IF 2uCPUuU FHEN LET dtisi 
SOG GF FuUSPU THEN LET duy=-2 
S9@ LET ZN =2x¢dx: LET 2U=2z44¢du 
488 LET num=numti 
2308 FF SCREENS (FuU,zxNI =" “ THER 
Go FAS 38s 
450 1F SCREENS (FY, ZxX3I="S" THEN 
tat ta 

Ga) SR°S8inx AND zu=pu THEN ca 
TQ Fess 

4408 LET z(zombie,23 = 

4952 PRINT AT Hay tse uu 

488 LET sctcaore@=ascaoreéei PRINT AT 

@®.B8. “SCORE: “jJscore 

4274 LET teFfts=tert-1 IF terfrt=6 
THEN GO TO agaa 

400 FOR m=i TO 16: BEEP @.024.n: 

NEXT 7 . 

485 LEY gosie¢InT (lLert-5i 

£52 GO FO 3a5 

mt REM 6S tise 

Bla PRINT AY 24.2%; FLASH 2: IN 
Fe ee 

Bea LET 2(FaMbIe, 3 =z fd aS Paes be 
GBH f,2)3 =Z24 

BSS BEEP @©.82.38@-lert 

S38 60 Ta 365 
283538 PAPER G: CLS 


30@1@ PLOT 4,4: DRAW 245,090: CRAU 
—-2468,8: DORAW ©,-159 


2S 
a 


aa 
2646 IF RNOQbrand THEN GC TOG 1068 


2@5@ PRINT AT 32, J; 
1460 NEXT Ji: NEXT 
22388 RETURN 
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‘BEBE LET PX=EINT (RND#15+5) Fase PF T ae oe 
B@IO LET PYSINT (RNDS17+5) | BA ry ARM NE aS lcd et lle 
PO2G IF SCREENS (Py.,.PxI ¢> THE FO3Q BEEP .82,20-i 
NH GO TO 2aaq Aes Fase NEMT i 
PES. IF SCREENS (py-i,PpxX-li¢c> *S6@ LET @ensmen-1: IF men¢c@ THE 
THEN Goa Te 2a ae a NM GO FQ Ferre 
2822 iF SCREENS (Py.Px-2) i> ; FG@S2 FOR i=-i TO 288: NEXT i 
HEN GO TO 2662 FaSBS LET rand=@.2 
Rees IF SCREENS {PudL.PM-bL} Cr FEBS GO TOS 3e 


FHEN Go TS Boo Sd » tLe ieserz 
2024 IF SCREENS (py-1.pxi0s" °F re. PRINT AT @ 15; "Ha: "shi aS 


Sas = eee Faz 7 4,6: °ANOTHER GAME 
ROSS IF SCREENS (pyta, Px co" °F ee eal : 


HEN GO To 2628 ae F@SG IF INKEYS="y" THEN GO TO 25 
ST cores Pate Poe eas? 7@9@ IF INKEYS$="h" THEN BORDER 7 
‘ : = 7: fe yd Te 
BOS? IF SCREENS (Py. Px+2}) 037° " TF 2 eee +5 ee aro 
HEN GO TO 2eaaa Se Se a ere iS eeerees 
SQ28 IF SCREENS (pusilpx¢iyes" " So Se ee, eee 
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Board Games 


PIRANDELLO 
Based on the game Reversi which was invented in the 1880's, the 
computer game PIRANDELLO is often known as ‘Othello’. Reversi 
is played on an eight by eight board, such as a chess board. In 
Reversi, players could place their first two pieces on any of the 
central four squares which were free. In PIRANDELLO, the 
position of the first four squares is fixed and play starts with these 
already in place, as you'll see whén you run it. 

After this, moves follow one simple rule: each new piece must 
adjoin an opponent's piece or pieces, and one of the player’s own 
pieces must be at the other end of the line of the opponent’s 
pieces. All the opponent's pieces then turn into the player's pieces. 
The line of pieces can be in any direction, whether horizontal, 
vertical or diagonal. If the player's piece completes a line in more 
than one direction, then the pieces in each of the lines change. The 
aim of the game is to convert as many pieces as possible into your 
own, so that when the board is full or when there are no more legal 
moves, you have the greater number of pieces on the board. The 
winner is decided simply by counting the pieces on the board. 

To show how the pieces change in PIRANDELLO, imagine you 
were X's, and the computer was 0's. There may be a line such as 
X000 and if you placed your piece at the end (so it looked like 
X000X) the 0’s would change (leaving the line as XXXXX). 

The game depends more on knowledge of strong positions than 
on attempting to convert as many pieces as possible in each move. 
The strongest positions are the four corners for a piece in either of 
these, controls a straight line across, down and diagonally. By 
contrast, the squares one in from the corner are probably the 
weakest. Other strong squares include those surrounding the four 
which are in position automatically at the start of the game 

The Spectrum has a very good knowledge of the relative value of 
the various positions on the board. It is not the best strategy 
possible to depend onlyon position. However, knowledge of prime 
positions greatly outweighs any other consideration and the 
computer can rapidly choose the best move possible from the legal 
moves available. Therefore, this program relies only on knowledge 
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of strong positions and thus makes a quick and (most of the time) 
intelligent reply to any move you may make, thus providing a rapid 
and challenging game. 

Line 30 sends action to the subroutine from 4800 which prints up 
the name of the program, then waits until a key is pressed for the 
game itself to begin. The BORDER is set to 5 in this section (line 
4000), the PAPER to 2 and the INK to 9 (an INK colour of 9 
automatically selects the INK colour for maximum contrast). The 
word PIRANDELLO is printed all the way down the screen in a 
variety of colours, complete with musical accompaniment. 
“Please stand by” appears, flashing, near the top of the screen, 
while arrays are DIMensioned and variables are initialized. 

The initialization routine begins at line 5000. Three arrays are 
DIMensioned. The A array (line 5010) holds the positions on that 
board, arranged in order of merit. The D array will be used, while 
the game is under way, to hold the locations of pieces which must 
be changed from one player's to the other. 

The loops from 5030 to 5079 fill the A array with character 146’s 
(that is, with the CODE for a user-defined square). These will be 
used when the board is printed, to indicate empty positions. The 
next loop (5080 to 5110) reads the information from DATA 
statements 5320 and 53390 into the E array. If you look at the two 
DATA statements, you'll see that they contain the numbers from 
12 to 89 in an apparently random order. This order is not, despite 
appearances, random. Rather, it represents the programmer's idea 
of the relative value of the positions on the board. Square 19, for 
example, is one of the most valuable, so the computer will always 
check that for a possible move before going anywhere else. The 
least valuable squares are those near the end of DATA statement 
5330; 28, 78 and 23. 

The next loop (5120 to 5150) fills the D array with the numbers in 
DATA line 5340 (1,9,10,11, -1,-9,-10,-11). These represent the 
‘displacements’ from a particular position on the board and are 
used when the computer is checking pieces to see if they need to 
be changed after a move. 

Lines 5160 and 5170 put the opening pieces in position. Then a 
move marker, which indicates which player's turn it is to move, is 
set to 145 in line 5180 to show the computer will move first. 

Once this has been done, the Spectrum gets to work to define 
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the graphics. There are three that are used: a square for an empty 
position, a diamond (printed in red) for a computer piece, and a 
diagonal line (printed in white) for one of your pieces. The DATA for 
the graphics is held in lines 5350 to 5370, with the “Z” at the end of 
line 5370 triggering the change of BORDER colour, the clearing of 
the screen and the move back to line 400 at the end of line 5270. 

After the board has been printed {lines 400 to 490) the move 
marker is checked. If it has the value 145, the computer knows that 
itis time for it to move. If not, the computer changes Y to 144 (so it 
will know next time Y is checked, that it is now its move), and line 
530 accepts the player’s move as two numbers, the one down the 
side, followed by that across the top. The move is entered as a 
single, two digit number (such as 25, or 81). Moves below 11 and 
above 88 will be rejected. 

If you find you are unable to move you enter a @ to indicate this, 
and the computer will go to line 100 to have its move. {If the 
computer is unable to move, see line 350, it will check to see [line 
380] if you have previously indicated your inability to move and if it 
finds you have, sends action to the end of game routine from line 
1000 which counts the pieces, and announces who has won.) Line 
560 makes sure the move is within the numerical limits (11 to 88) 
and that the square into which you intend to move is blank (that is, it 
contains a 146). 

Once the move has been accepted as legal, the computer 
moves to the section of the program beginning at line 169 which 
uses the displacement values held within the E array to check all 
pieces for changes (that is, for swapping into the opponent's 
pieces). At the end of this routine, which runs from lines 160 to 
320, the move marker is checked again. If it is found to equal 144, 
or the print board flag (J, initialized in line 16@ and changed when 
needed in line 290) equals one, then the computer goes to line 
400 where the board is printed again. If all squares have not been 
checked (that is, K in line 340 does not equal 60) then the computer 
goes to line 130 to continue its search. This line, of course, will 
never be reached when the player has just moved. If line 350 is 
reached, the “| pass” message is displayed. 

Line 500 checks the value of Y, and ifit is found to be 144, knows 
It is the computer's turn to move. Therefore, the computer goes 
back to line 100 where it looks for a move (lines 100 to 150, plus 
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340). Note that here the computer is using the information 
gathered from the DATA statements to determine the order in 
which the squares should be checked. 

You'll find PIRANDELLO a challenging game and the Spectrum a 
worthwhile opponent. Once you've got the game under control, 
you can change the user-defined graphics and/or you can 
experiment with the order of the numbers within the DATA 
statements to see if you can improve the computer's strategy. 
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CHECKERS 

Challenge your Spectrum now to CHECKERS, one of the world’s 
most popular board games and second only to Chess. Some 
games historians believe that CHECKERS (or ‘Draughts’) was in 
fact a forerunner of chess. Certainly, checker-like games were 
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played in ancient Egypt, Greece and Rome. The game evolved 
through the centuries and reached its present form in the mid- 
seventeenth century. 

Many regional variations exist but the game played by your 
computer in this case is very much the standard game, rather than 
an exotic variation. In the standard game CHECKERS is played 
between two opponents on alternate squares of the chess board, 
generally on the black squares. To make it easier to see on the 
screen (and on screen dumps if you want to use the provision 
within the program to COPY the contents of the screen from time 
to time) we will play in this program on the white squares. 

Each side starts with 12 pieces. In this version, you are the small 
x's, the computer is the small o’s (but there is no reason why you 
should not modify the program, once you get it running, to use 
graphics which you have defined) and the computer starts at the 
top of the screen playing down, while you start at the bottom. 

You can only move diagonally, that is, onto white squares. If 
there is an enemy piece on the diagonal immediately in front of you 
and a vacant square lies behind this one on the diagonal, you can 
capture the piece by jumping over the enemy piece (removing it 
from the board) in order to land in the vacant square beyond. More 
than one piece may be captured at a time if—when landing on a 
vacant square after a capture—a further capture is possible from 
that point. 

Some rules of CHECKERS include a provision with the 
mysterious name of ‘huffing’ which states that if a capture is 
possible, it must be made. There is no huffing, as such, in this 
game, but the computer will always capture when it can, so you 
should play fair and make a capture if one can be made. 

The point of the game is to wipe out all the opponent's pieces, or 
make it impossible for him or her to move. In this program the 
Spectrum will tend to play to the death, but has the ability to judge 
when it has been beaten, at which point it will concede the game. 
You can give up at any point, by entering 99 when you are asked for 
your move. Do this, and the Spectrum will graciously accept your 
wish to concede. 

Once you get a piece right across the board to the back row, the 
piece is ‘crowned’ and becomes a ‘king’. This is shown in this 
Program by the pieces changing into new characters. You can 
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easily alter these to the characters of your choice, as will be 
explained shortly. A king has double the mobility of an ordinary 
piece. That is, it can move backwards as well as forwards, so it 
becomes quite a formidable piece. Note that if you landon the back 
row after a capture, you cannot at that moment convert your piece 
into a king and continue a sequence of captures ‘backwards’. Your 
piece cannot work as a king until the following move. The 
computer knows this and acknowledges it by waiting a move 
before it changes its own piece into a king. 

You'll find the computer plays this game fairly quickly and with a 
degree of intelligence and foresight which means it will give you a 
fair run for your money. To add interest, the computer prints up on 
the screen each move as it considers it, sounding a ‘beep’ if it 
comes across a move it considers worthwhile. The computer 
searches through the board, square by square, from the top left 
hand corner along the top, then along the next row from left to right 
and so on to the end. When it finds a piece of its own, it checks first 
to see if a capture can be made. If it finds a capture, it makes it 
without further ado, reprints the board, and allows you to enter 
your reply. While it is searching for moves, it is also looking for ‘safe 
moves’, using a simple search technique to find potential moves 
which will not expose it to danger. It also has some facility for 
selecting moves which protect pieces which are already in danger. 

After having gone through the board and stored each of these 
safe moves in an array, it checks to see if—by a single move—it 
can promote one of its pieces to a king. If such a move is possible, 
because the computer gives this a higher priority than just making a 
safe move, the ‘make a king’ move is made. If a piece cannot be 
moved on to the back row for promotion, the computer chooses at 
random from the safe moves it has stored in an array. By choosing 
at random from moves which it judges of equal worth, the 
computer can play a series of games without repeating itself, even 
if you try to force it into a game identical to one which it has already 
played. 

If its search of the board has revealed that no safe move exists, it 
chooses a piece at random and moves that. Such moves will occur 
only rarely in the early and middle stages of a game. If ithas onlya 
few pieces left on the board, it may consider its position is 
hopeless and concede you the victory. 


BoardGames 73 


As | said, this program plays swiftly because for most moves it 
only has to partially search through the board, or—at worst— 
search through the entire board only once. The speed of response 
is delayed by the lines which print out the moves which the 
computer is considering. However, these add so much interest to 
the game, | consider they are worth retaining although they slow it 
down somewhat. If you prefer a program which plays at maximum 
speed (and this is very fast indeed) you can delete certain lines, 
which I'll indicate to you as | go through the program. There are also 
a few ‘comment’ lines, such as "Good mover”, or "Got you!” 
which come up from time to time. These slow things down slightly, 
and may well be deleted. You may find, as have several people who 
have used this program, that they like both versions and after 
entering and saving the complete program, delete the extra 
printout lines to have a second version which works at maximum 
speed. Then they can choose which version they wish to play. 

After the random number generator is seeded in line 50, action 
goes to the subroutine starting at line 1070 where the variables are 
initialized. If you turn to this section, you'll see that it begins by 
setting the PAPER and BORDER to blue and the INK to yellow, 
before the screen is cleared to turn on the PAPER colour. In this, as 
in all other programs in this book, feel free to change the colours to 
suit your own taste or to the particular combinations best suited to 
your television. The words “Stand by” appear near the top of the 
screen during the fairly short initialization process. (You may 
consider including such a line in any program if there is a longer 
than usual initialization process, to reassure the user that some- 
thing is actually happening after RUN and ENTER are pressed.) 

Line 1080 assigns values to the pieces. The names of the 
variables are straightforward (C for computer piece; H for human; 
CK for computer king; HK for human king; E for an empty square; 
and B for a black square). They are assigned in this line and then the 
whole program refers to the variable by name. This was done so 
you could, at will, change the characters used to represent the 
pieces simply by changing this line. If you wished, for example, to 
add user-defined graphics, all you’d need to do would be to use 144 
for H (144 is the CODE of user-defined graphic one, available in the 
graphic mode on the A key), 145 for C, and so on. 

Line 1090 sets the variable OF to represent ‘off the board’. The 
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computer has, ‘in its head’, an invisible row of dummy squares 
around the board so that it knows where the edge of the board is 
and does not attempt to boldly capture where no piece has been 
before. 

Once OF has been defined, the O array (which holds the pieces) 
is DIMensioned and each element of the array is filled with the 
dummy value. The next loop (1118 to 1130) uses the DATA in lines 
114@ to 1230 to fill the squares on the board with their required 
values. All elements of the O array not assigned in this loop will 
have, of course, a value of —99, so the computer knows they are 
areas into which it must not stray. 

Line 124@ is a loop which fills the N array (DIMensioned back in 
1@9@) with numbers which represent the possible moves from any 
square for a non-capture move. The computer knows that doubling 
these numbers, when needed, will give it a possible capture move. 
In line 1260 the variables which count the number of pieces of the 
opposing player that have been captured are initialized at zero, CO 
for the computer, HU for the human. 

On returning from 1260 to 90 we see, in the REM statement, the 
words "Delete next line to stop Spectrum having first move”. If 
you wish to have the opening move, simply get rid of line 100. You 
do not need to change any other part of the program. The Spectrum 
is not the strongest Checkers player in the world, so giving it the 
advantage of the opéning move is the least you can do. The 
program is called within the loop of subroutines from 110 to 140, 
with line 15@ starting the cycle again. The various subroutines carry 
out the vital parts of the program, in turn, as follows: 


68@ prints out the board 

850 accepts the player move 

680 reprints the board after the player move 
160 starts the computer move search 


We'll start by looking at the computer search process because it 
is the most interesting and important section of the program. Line 
16@ DIMensions the S array, which will be used to store the safe 
moves discovered by the computer while it is looking for captures. 
SC, the ‘safe move counter’, is set to zero in line 170, where A 
(which is used to indicate the square being considered) is set to 89, 
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one more than the element 88, which holds the top left hand corner 
square of the board. Line 18@ decrements A by one, to indicate the 
top left hand square, and line 190 checks to see if this square 
contains either a computer ordinary piece (that is, it checks to see if 
that element of the array contains the value C) or a computer king 
(value CK). Line 200 sets B (which indicates which potential move 
from that spot is being considered), to zero. If Ais less than 29, the 
computer knows it is on the human’s back row and can only move 
upward (values of 3 and 4 for B indicate upward moves), so does 
not bother considering the moves when B is 1 and 2. 

Line 21@ adds one to B (which then becomes 1, or 3 if a piece on 
the back row is being considered) and 220 sets M (which 
throughout the procedure defines the square the ‘computer is 
considering moving to, while A is the square the computer is 
considering moving from) to A plus the element of N array 
indicated by the value of B. If M is greater than 88 or less than 11 
then the computer knows the piece is off the board and need not 
be further considered. Line 24@ is one of those which can be 
deleted if you want to go for maximum speed. It prints up the move 
which is being considered. 

Our next line finds a capture. If the square it is considering 
moving to (M) contains a human (H) or a human king (HK) and the 
square beyond is empty (E) then the computer knows it can 
capture, and therefore directs action to line 32@ where the jubilant 
message “Got you...” is flashed on the screen. Again, if you're 
going for maximum speed, delete lines 330, 340 and 350, as these 
are only used for showing off. 

Back in the main body of the computer move section of our 
program, the next line (260) conducts the simple search | 
mentioned, looking beyond the square into which it intends to 
move to see whether, by so doing, it would be inviting the capture 
of the piece it is moving, or would—by moving that piece—expose 
another piece to danger. If a piece passes the long series of IF 
statement tests in this line, then the Spectrum goes to the 
subroutine starting from line 47@. The computer can store up to ten 
safe moves (as the array which holds them contains just ten 
elements and ten has been found to be more than adequate in 
most circumstances). The safe move counter, SC, which has been 
set to equal zero back in line 17@, is incremented by one if it is less 
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than ten. Line 480, another one you can delete for maximum 
speed, prints up “Safe move...to.."” and sounds a BEEP to 
highlight the safe move. 

Line 490 is rather interesting. It converts both the ‘from’ (A) and 
‘to’ (M) squares into a single, unique number (which is placedin the 
next available element of the S array) so that later, if needed, it can 
be decoded. Line 490 returns to the main search section of the 
program, but while we are at this point, we'll have a look at how the 
safe move is made. If no capture has been made, the computer 
moves to line 509. If it finds SC equals zero, then it knows no safe 
moves have been found and goes to line 550 to select a move at 
random. If SC is greater than zero, the program ‘falls through’ to the 
next line and one of the encoded numbers is selected from the S 
array, as XC in line 510. The ‘from’ square (A) is recaptured from XC 
in line 520, and the ‘to’ square (M) in line 530. Line 540 sends the 
program to 650, where the move is to be made. 

Returning to the first section of the program, we come to line 
270. Here B is incremented. Elements one and two of the N array 
contain moves which can be made by any piece (except one on the 
bottom row) and elements three and four contain king-only moves. 
If B, the counter which selects the elements of the N array which 
will be used for the move, is found to be lower than its maximum 
(two for an ordinary piece, four for a computer king) then the 
program returns to line 210 where the counter, B, is incremented, 
and the search continues. Line 280 checks to see if every square 
on the board has been checked and, if not, returns to line 180 
where the square counter, A, is decremented by one, and the 
search continues. If, however, all the moves have been used up 
(that is, Ais found to be not greater than eleven when tested in 280) 
the program continues to the next two lines, which check for a 
potential king. A flag, FL, is set equal to zero and the computer 
checks the elements of the array which represent the squares on 
the row before the one on which computer kings are made. If it 
finds a piece of its own there, it sends the program to the 
subroutine from line 1279. If this subroutine finds a move which 
will make a king, then (in the subroutine), the FL is set to one and 
this sends the program to line 650, to make the actual move. 

If such a move is not possible, line 310 jumps over the section 
which makes the capture move (which we'll be returning to 
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shortly) and goes to line 500. Now, keep in mind that the computer 
follows a strict hierarchy of checks: 


e can! capture, and if so, can | capture again? 
@ can | make aking? 


® can| make a move which does not place the moved piece 
in danger or expose another piece to danger? 


@ can | make a legal move? 


If the answer to any of these questions is ‘yes’, then the move is 
made and the board reprinted in readiness for the human move. If 
the answer to the first question is ‘no’, then the second question Is 
asked... and soon. If the answer to the final question is ‘no’, then 
the computer concedes the game. (There is one other question, 
asked every time the board is reprinted, which relates to how many 
pieces the two players have captured. If it finds that either player 
has taken 12 of the opponent's pieces, the game goes toa routine 
acknowledging the win and terminates the game. This question, 
which does not really fit into our hierarchy of moves, is mentioned 
here for completeness, so you can more easily understand the way 
the computer arrives at a move.) This kind of ordering of move 
checks is how most intelligent game-playing programs work, from 
arcade-type moving graphics games to chess. 

If the computer has reached line 500, then the answer to the first 
two questions has been ‘no’. To ask the third question (‘can | make 
a safe move?’) the computer simply has to refer to the value of SC 
(the safe move counter). If it is zero, it has not found any moves 
worth labelling as safe, so the answer to the question is ‘no’. We 
have already examined the safe move system, so we'll now look at 
the part of the program which the computer accesses as Its ‘court 
of last resort’—the check for a move chosen at random, which 
begins at line 550. ae 

Here the variable SC is used again, to save having to initialize 
another variable. It will, after all, be reset to zero (by line 170) before 
the next move and can safely be used for another purpose at this 
point. Line 550 adds one to the value of SC and chooses a square at 
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random between one and 88. If this square does not contain either 
a computer piece or a computer king (line 560) then action goes to 
line 630 where, if less than 300 numbers have been chosen in thi 
section, action is directed back to line 550 to try again ; 
However, if the chosen square does hold either aC or aCK, then 
the routine from lines 570 to 620 looks to see if this piece can 
move. If amoveis found, line 610 sends the program to 650 where 
eee will be made. If no move has been found, and 300 
He bes, He eee at random, the computer will concede 
Before we have a look at the section which allows the human to 
make a move, let's move back up the program slightly to the 
section beginning at line 370. This line is accessed after a Capture 
has been made. The previous line has incremented the computer's 
score (CO) by one before line 370 calls the board print subroutine 
which shows the moved piece, the new Spectrum score and—of 
celtse =a blank square where the computer piece used to be 
You'll recall that A was the square the computer moved from and 
M the square it was moving to. A is now reset to equal the EaEara 
the computer has moved to, and the lines from 390 to 460 check to 
see if a further jump or jumps can be made, and if so, it makes 
them, checking after each move (and after the board has been 
reprinted) to see if a further Capture can be made. When the 
sequence of captures is over, the computer will hand over the 
program to the human to make his or her move. 
The human move section is simple. You move by specifying the 


reprinted and if you are captured, you'll be asked if you can jump 
aah If you say no, the computer will think of amove. Say yes, and 
es ee eaes a new ‘to’ square (because, of course the 
alrea no ; f j 
pate Y WS your ‘from’ square, as you just moved 
ae section which accepts the human move starts at line 810 
es ere REM statements point out that you enter 99 if you wish to 
rminate the game. Entering a “1” will tell the computer to copy 
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the screen to the printer. After this copy, you'll be asked again to 
enter your move. After the move has been made within the array 
which holds the pieces (in line 91@) two loops (920 to 950) check to 
see if either player's pieces have reached king status and, if they 
have, changes their symbols accordingly. You may recall that | 
mentioned earlier that a piece cannot move as aking until the move 
after the one in which it became a king. The computer pieces are 
promoted here because this (being the middle of the human move 
section) is safely away from the computer move generation 
section, and so there is no chance the computer will try to cheat by 
moving a newly-created king. We assume, by the way, that 
although a human piece is crowned king immediately, that the 
human will not cheat and try to move it. There’s nothing in the 
program to stop you cheating but it rather destroys the point of it all 
if you do, because the Spectrum would never dream of stooping to 
cheat. 
Now at line 960, the computer checks the difference of the 
human's ‘from’ and ‘to’ squares. If this difference is less than 12, 
then the human has not made a capturing jump, so the computer 
returns to the main loop at the beginning of the program to reprint 
the board prior to the computer selecting its next move. However, 
if this difference is not less than 12, then a capture has been made, 
and the computer will—two times out of threee—acknowledge this 
capture with a comment generated by the lines 970 to 999. 
Comment or no, a capture will be signalled by a rising tone 
produced by line 995, the human score (HU) will be incremented by 
line 1000, the captured square will be ‘emptied’ (by the second 
statement in line 1000) and the board reprinted before (in line 1030) 
the human is given the chance to jump again. If not, line 1040 
returns to the main loop, avoiding line 160 which sets the old ‘to’ 
square as the new ‘from’ square, and sends the program to line 
860 to accept the new ‘to’ destination. 

We have already looked at the rest of the program, which 
controls initialization and the ‘can | make a king?’ routine. The only 
part of the program we have not looked at and which is self- 
explanatory, is that section from 680 to 780 which prints out the 
board after each move. Note line 770 which side-steps the return 
to the main program loop if either the human (HU) or the computer 
(CO) counters equal 12. 
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Here is the board at the start of the game, and alittle later, when 


the Spectrum has the upper hand: 
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TIC-TAC-TOE 
TIC-TAC-TOE (noughts and crosses) is the well-known game in 
which you and your opponent take it in turns to place your symbols 
(either a zero or a cross) on vacant positions on a three by three 
grid, trying to get three in a straight line in any direction, vertically, 
horizontally or diagonally. The game has been so well analyzed that 
there are rarely surprises when playing it. Instead of the more 
predictable noughts and crosses programs in which the human can 
at best draw (and will generally lose), | set myself the task of writing 
a program which would play in a non-predictable, but still fairly 
intelligent manner. The program | came up with allows either you 
or the computer to go first (the decision as to who will move first is 
determined by line 50). Apart from taking the middle square if it is 
available, the Spectrum's moves are difficult to predict (except of 
course for completing a line of three if it exists or of blocking one of 
your potential lines of three). 

If RND in line 5 is greater than 0.5, the computer decides to 
move first and, after a pause, goes to line 90, which sends action to 
the subroutine from line 700 where the board is printed out. On 
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return from the subroutine the computer goes to the subroutine 
from line 439 which is, as you can see, the ‘win check’ routine. This 
routine, which checks all the possible wins, continues to line 550. 

Back home from the ‘win check’ the computer looks at the 
central square (number five). If it finds this position empty the 
computer moves into it and (as the end of the line indicates) 
immediately goes to line 60, where the board printing subroutine is 
called prior to the human player's move being accepted. 

If this simple move cannot be made the computer prints up the 
message “Please stand by”, then checks for a possible win the 
first time itmoves through the routine from 140 to 280 and if one is 
not found, looks for a potential three it can block. If neither of these 
are found the computer chooses up to 20 moves at random, 
looking for somewhere to move. If no move has been found, the 
computer (using the routine from 350 to 380) checks each square 
in turn. If no move is found, the computer knows all squares are 
full. It also knows, because it has made a ‘win check’ earlier, that 
neither it nor you have won, so the result must be a draw. Line 410 
prints this up. After a trill or two from the music department (the 
routine from 590 to 600) the program automatically reruns. 

The player move subroutine from line 620, allows you to enter 
your moves via INKEYS, so itis not necessary to press ENTER after 
selecting a number. 

Note how the entire game is called within an endless cycle from 
60 to 100, printing the board, accepting a player move, printing 
the board, checking for a win or a block, making the computer 
move ...and so on, until the game ends. The advantage of 
working in this way with the program made up of subroutine calls 
from an endless cycle, is that you can modify different parts of the 
program, improving them as you do so, without having to dislodge 
previously written parts. 

If you wish to improve the play of this program (although it will be 
at the cost of the program becoming more predictable), you could 
get it to sample the squares in the ‘random move’ section (from 
line 290) in a predetermined order. 

24@ REM TIC TAC TOE 
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NEOPHYTE CHESS 


ne-o+phyte n. 1. a person newly converted . . . 


3. a novice or beginner . . . (Collins English Dictionary, Collins, 
1979) . 


Back in 1978 when chess-playing computers were a rarity, 
readers of the Romanian weekly publication Magazinul took part in 
a game of chess against a computer in that country called Felix 
C-256. Programmed by mathematician Vioreal Darie from the 
Bucharest Institute of Computing Technique, the program—Astro- 
64— took two years to develop. Felix made a move and readers 
were invited to write in with the move in reply. The most popular 
move was fed into Felix and its response printed in the following 
week. 

Despite the 600 hours or so which were invested in writing the 
program, Felix did not play particularly well and was finally defeated 
by the combined readership of Magazinul. One chess expert said 
that the program sometimes made good or excellent moves but at 
other times played ‘like an uneducated chess player’ and made 
“even beginners’ mistakes’. 

As the title of our program (defined by the quotation at the 
beginning of this section) and the story of Felix have probably 
suggested, the same criticisms could be levelled at our program, 
NEOPHYTE CHESS. It does not play good chess and should prove 
easy to defeat, but it has been included in this book for several 
reasons. 

Chess has always beckoned as a temptation to programmers. It 
used to be thought in the innocent pre-micro days, that if a 
computer could be programmed to play chess, this might be 
construed as proof that computers could truly be considered 
intelligent. In order to cope with the enormous number of 
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permutations which could occur in a game the scope of a chess 
program must be very broad compared with, say, a program to play 
checkers or noughts and crosses. There are some 10'”° possible 
games of 40 moves, a similar number of games to the number of 
atoms in the universe. Programming a computer to cope with 
these sorts of possibilities is a formidable challenge. 

Very few chess programs in BASIC have ever been published. 
The fact that one can be developed which plays in a reasonable 
time is, | think, of interest in itself and there is no doubt that 
watching this program play is fascinating, even if it will never show 
you how to improve your chess. This program plays very quickly 
most of the time. It locates, stores and sorts its piece positions in 
less than four seconds and generally moves within six to fifteen 
seconds after that. As board positions become more complex, the 
game slows down, but the Spectrum still rarely takes more than 
forty seconds to move. 

After the listing, I've added a variation of the program which 
allows it to play against itself. Watching the computer grapple 
alternatively with white, then black, is fascinating and will give you 
a good insight into weaknesses in the Spectrum’s game which | 
hope you will feel inspired to try and remedy. The program has 
deliberately been written in modular form to make it easy to get at 
the sections which deal with specific pieces, so you can gradually 
modify the program to your own liking. 

The fact that Felix could even play chess was considered news in 
1978. And it is perhaps surprising that although the first major 
paper on the possibilities of the computer playing the game— 
Programming a Computer for Playing Chess—was delivered in 
1949 by Claude Shannon (an important early figure in the 
development of computers), the first program did not surface until 
a decade later, when Alex Bernstein and three of his colleagues at 
IBM managed to get a game up and running on an IBM 704. 
Despite this relatively late beginning, there are a great many chess 
programs available today, including several competing versions for 
the Spectrum alone. 

But chess is, as | said, a formidable challenge for a programmer 
to tackle. Once you've entered this program and worked on it a bit, 
you should have a much better idea of one way in which a primitive 
game can be developed. From there, you should be better able to 
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appreciate how dedicated chess machines work, and can then turn 
your hand to writing a complete program for the game from 
scratch. | have used a number of ideas which are fundamental to 
writing board games in this program and you should be able to find 
many other programs in which the ideas can be used. 

The first decision | made was to set my sights on a realistic 
target. When | was new to this game, | was struggling with an early 
draughts program | had written, trying to work out how to allow the 
computer to recognize and make multiple jumps. Trevor Sharples 
(who has co-written two books with me) suggested that | write the 
program simply to cater for double jumps. He pointed out that as 
the program did not play particularly well, the chance of it getting a 
triple jump against a human player was so unlikely it would not 
need to be catered for. Later | developed a simple subroutine to 
cater for njumps, but at that time the advice was invaluable. Claude 
Shannon, the man who delivered the paper on chess playing in 
1949, was the one who said there were approximately 10122 
different sequences of moves which could be played in a 40 move 
game. Shannon added that a fast computer would take 10” years 
to examine all the possible moves to be made, before it even 
decided to move its first pawn forward two squares. 

| decided that 10% years was a little long to wait and 40 times 
10” (approximately) would try my patience severely. An ex- 
haustive search was ‘obviously out, even if | had the programming 
skill (which | do not) to write a program to somehow assess those 
moves and choose one which was worthwhile. 

Even though | had no plans to write a program which would have 
anything but the most basic means of looking at possible 
consequences of its moves, | knew that the very number of 
combinations which could be considered at the simplest. level 
could make the program very, very slow. | was pleasantly surprised 
at how quickly it played when | finally got it up and running, even 
though | had tried to write it to optimize speed. A program which 
has often-called subroutines towards the end of the listing tends to 
run a little more slowly than it would if the subroutines were near 
the beginning of the program. This is because a computer looking 
for a subroutine destination starts at the very first line number in 
the program and then goes through it line by line looking for the 
start of the subroutine. If the routine is near the start, it has fewer 
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lines to search. 

| planned the entire program carefully, writing the first version 
out completely on paper before a single character was entered into 
the Spectrum. This allowed me to handrun it more times than | care 
to remember and to shuffle the component parts so that the 
program structure was as logical as possible. It appears that this 
has kept its response time low. 

So, the first two ideas incorporated in this program are the need 
to aim ata moderate horizon and to have a program structure which 
impedes response time as little as possible. 

The next important idea concerned the board layout. My first 
attempts at computer board games used a board numbering 
system | developed based on an idea put forward by A. L. Samuels 
in an article in Scientific American (see Strachey, C., ‘Systems 
Analysis and Programming’, in Readings from Scientific American, 
W. H. Freeman and Co., San Francisco, 1971). 

Although this worked satisfactorily, it required a long routine to 
convert player moves as entered into numbers which the 
computer could use. A far more satisfactory board-numbering 
system was suggested to me in late 1981 by Graham Charlton (co- 
author of The Turing Criterion—Machine Intelligent Programs for 
the 16K ZX81, Interface, London 1982) and this lies at the heart of 
the CHECKERS program in this book, and NEOPHYTE CHESS. The 
entire board is held in an array and moves are made simply by 
swapping elements of the array around, replacing one element of 
the array with the character for an empty square when a piece 
leaves one location, and putting the CODE of that piece in the 
element of the array representing the position to which it is 
moving. When the board is printed the computer simply has to 
print the character (CHR§$) of each element in the array in turn. The 
Charlton board numbering system also makes for easy conversion 
between the numbers entered by a player to indicate the moves he 
or she wishes to make, and the element number of the array which 
that player move represents. 

| knew before | began the program that the player should be able 
to refer to the squares on the board by the algebraic notation which 

is fairly standard in chess circles, so arranged my board to make 
this as easy as possible. This diagram shows the squares on the 
board, around the board are the numbers and letters used in chess 
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algebraic notation, and within the board, the elements of the array 
which refer to that square: 


23 63 3 


The real advantage of the Charlton system over other board- 
numbering systems I've considered is that any move can be 
described as a simple addition to, or subtraction from, the starting 
square. An explanation should make that clear. Imagine that you 
have a knight on the square numbered 45. As you know a chess 
knight moves in an L-shape, two squares and then one, or one 
square and then two. One possible move for the knight is to go 
from its current square (45) to the square numbered 66, an 
increase of 21. Now imagine the knight was on square 11. Add 21 
to this and we get 32, another possible legal move. Start from 52, 
add 21, and we get a (correct) destination square of 73. The eight 
moves of the knight from any one position (assuming the move 
does not take it off the board) can be found by adding the following 
numbers to the starting square: 


Fe NW SOD “SW 


19, -19, 21, -21, 8, -8, 12, -12 


In a similar way, pawn moves can (apart from the first move, 
when two squares are possible) be found simply by adding one on 
to the starting square (so a pawn can move legally from 45 to 46, or 
from 23 to 24). A pawn captures by moving one square diagonally, 
so It can capture to squares designated as plus 11 or minus nine. 
Knowing this, we can program a computer fairly easily to search 
the possible legal moves from its starting square. 
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This is exactly what | have done in this program. If you look at the 
lines following 2640 in the initialization section of NEOPHYTE 
CHESS, you'll see how it is done. Firstly {in line 2650) a number of 
arrays are DIMensioned to be used for several tasks. Among them 
are arrays to hold the potential moves of specific pieces. The N 
array (N is used to designate knight, to distinguish it from K for king) 
is filled with the DATA in line 2870. If you look at that line you'll see 
the same eight numbers as we discussed a few paragraphs ago for 
holding knight moves. One way of making a knight move (and this 
method is used, with some limitations, at one point in NEOPHYTE 
CHESS) is to generate a number at random between one and eight, 
and test that element of the N array to see if the square the knight 
currently occupies, plus the number in that element of the N array, 
is either an empty square or is a piece owned by the opponent. If it 
is found to be an opponent's piece and a few tests indicate that this 
square does not face capture from other pieces, the move can be 
made. This is the technique which lies at the heart of NEOPHYTE 
CHESS. Take a few moments to re-read this to understand it. If you 
are willing to put in the amount of methodical work required you 
could probably now write a chess program from scratch, armed 
with the information given up to this point. 

A program which moved simply by throwing a couple of dice, 
such as this explanation suggests, would of course fall prey to even 
a beginner very rapidly. So the move generation process must be 
modified to some extent, as is done in this program, but the move- 
making works just as described. The piece arrays are in the 
program as follows: 


Knight — 2860 to 2870 

Rook -— 2880 to 2920 

Bishop — 2930 to 2970 

Queen — 2990 loads the Oarray with the elements of the 
bishop and rook arrays, because the queen's 
moves are simply a combination of all the rook 
moves and all the bishop moves 

King — 3000 to 3010 


The next array to be filled, the S array (lines 3020 to 3100), holds 
the next secret of our program. Many ‘intelligent’ board game 
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programs (such as the CHECKERS in this book) go through each 
square on the board from the top left hand corner to the bottom 
right one, square by square, looking for pieces, captures and 
moves. My decision, and the one which—more than any other— 
accounts for the speed of this program, was to sample the squares 
in an order which | felt was most in keeping with the game of 
chess. The order in which the squares are sampled is held in the 
DATA statements, 3030 to 3100. Here are the numbers which you 
can compare with the locations on the numbered board given a 
short time ago: 


45 a6 36 6G a? a7 35 So 
37 Ee? Ga 65S 2262 Be) 2 ee 
Ba Sa 26 76 36 6& iv Bre 
i8 66 oe 64 25 75 16 ea6 
4G 24 Fa 15 es ag G2 a3 
Bo aa 6S 23 Fa Sa d2 62 
32 83 i3 ge oS a 82 gi 
Si yak 6a ei ¥ aber ei 26 


The program always looks at the square 46 first, then 56 and so 
on, through the list. It is worth studying this for a few moments as 
this order is something you may well feel like changing in due 
course. 

Let’s recap on the parts of the program we've discussed so far. 
We pointed out that this program has been included because 
chess has proved a constant fascination to computer programmers 
and although NEOPHYTE CHESS does not play well, it can teach 
quite a bit about programming chess and similar board games. 
Despite being in BASIC, it plays remarkably quickly. 

The program listing is followed with a variation of the first ten 
lines or So to allow the computer to play against itself. This provides 
a fascinating display and is a good way to debug the program, since 
you can leave it running—all day if necessary—playing against 
itself to see if it crashes at any point, which will indicate a typing 
error. 

The board numbering system used has been illustrated and it 
was explained that this numbering system means that moves of all 
pieces can be expressed in terms of an addition to, or a subtraction 
from, the element of the array which represents that square on the 
chess board. The possible moves by each piece are stored in an 
array, with each array name designed to make it fairly easy to 
recognize what each array holds, suchas Q for the array holding the 
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queen’s moves, and B for the bishop moves. The S array holds the 
sequence in which the squares on the board are checked when the 
computer is looking for a move. 


Here is the layout of the program: 


10—30 Starting information, ensures CAP LOCK is engaged 

40-60 These three lines reprint the board after the 
computer move, call the player to enter his or her 
move, and reprint the board 

70—2350 This is the hub of the program, and contains all the 


thinking part of the game. We'll look atitin more 
detail shortly 


2360-2460 Thisreprints the board after each move and (in lines 
2410 and 2420) promotes pawns which have made 
it to the back rank to queens 


2470—2560 Thisis the ‘court of last resort’ if the king senses itis 
in trouble. From here, if a move is not made, 
line 2560 directs the program to 2060 where the 
computer concedes the game 


2570—2630 This section accepts the player's move, calling the 
‘comment’ subroutine if a computer’s piece has 
been taken, and allows the player to signal various 
things to the program after the move has been 
entered. The program demands inputin the form of a 
letter and a number (such as A5) entered as a single 
string to designate the square you're moving from, 
then a further letter and number to indicate the 
square you wish to move to. Once this is done (and 
the program checks the length of the input, but does 
not check the legality of the move), you are 
presented with the following choices: 


Cc — you've got the computer in check 
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P — you wantacopy of the board printed 
x — you wish to exchange sides 

S — toterminate the game 

ENTER — _ tocontinue with play 


Once you've indicated which of these you want, 
lines 2625 and 2630 actually make your move. 


This ends the working parts of the program, except for the 
subroutines which ‘comment’ on a capture by the player and the 
routine which is called when you wish to exchange sides. The rest 
of the program is initialization, and it is made up as follows: 


2640 


2650 


This seeds the random number generator, sets the 
flag MM to zero, and sets the string AS (which 
accepts the first part of the player’s move, and is 
used to signal check and the like) to “". MM is the 
most important variable in the whole program. When 
the computer finds a move, MM (named after 
‘machine move’) is changed from zero to one. The 
flag MM, then, is checked throughout the running of 
the program and only when its state changes from 
zero to one will the computer stop looking for a 
move. It will--if necessary—go through the process 
of looking for a move eight times before it concedes 
that it has made no decision which will switch MM 
from zero to one. 


This DIMensions the arrays. Here’s what they do — 

A —holds the board, the master array 

R —rook moves 

B — bishop moves 

N — knight moves 

O — queen moves 

K— king moves 

Z—used when exchanging sides 

S — sequence in which squares are checked 

T — holds the location of each piece, contents 
changed each move. 
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2660-2670 These two lines hold the variables which are used 


for the pieces. The pieces, by the way, are 
represented by the letter names (such as P for pawn, 
K for king, and N for knight) with the computer 
playing black from the top of the screen, and having 
its pieces represented by capital letters, with small 
letters for your pieces. Here’s what the board looks 
like at the start of the game: 


As you can see, the board is made up from dots 
rather than black and white squares, and there are no 
user-defined graphics. The point of this program was 
to get it to play chess, rather than to get it to look 
pretty, but if you wish to add ‘proper’ chess piece 
shapes, by all means do (and send me a copy of your 
program, via the publisher, because I'd be very 
interested in seeing it). Each ‘from’ and ‘to’ square is 
indicated by the letter across the top or bottom, 
followed by the number down the sides, so your 
queen starts on D1 and the computer's king's knight 
starts on G8. 

Here are the variables for the pieces: 


Human — white: P—112; R-114; N-110; B—98: 
Q-113: K—107 


Computer — black: PB — 80 (for ‘pawn black’); 
RB —82; NB—78; BB— 66; OB-—81; KB-—75 


The arrays for the possible movements of the 
pieces. These have already been discussed. 
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Sets the PAPER and BORDER to blue, the INK to 
white. Change this to whatever you like. 


3110 


3120-3210 This routine allows you to exchange sides at any 
point in the game after you have moved. The 
exchange works as follows: the computer acts as ifa 
mirror had been placed across the centre of the 
board and the pieces are reflected in this, so a piece 
starting on A2 will end up on A7. Although the 
position of the pieces is changed, the computer 
continues to have the capital letters and you have the 
small letters, although you will have inherited each 
other's positions. The ‘auto-play’ option simply does 
an exchange after each move, and then dumps every 
second board (when the pieces are the ‘right way 
round’) so you can keep track of the game. You'll find 
this exchange system is easy to understand once 
you've used it. 

3310-3380 If you move on to a computer piece (detected in line 

2625) the Spectrum uses this subroutine to 

comment on your capture. Three times out of four it 

will flash the border, say something like “Got me!” 
and play a little trill, then three mournful notes. The 

fourth time the three notes only will sound, plus a 

very quick border flash to acknowledge the capture. 


Finally, before we get to the program listing itself, here’s a 
breakdown of what happens inside it when a game is under way. | 
hope this will allow you to interpret its workings, so that when you 
want to improve It you'll know which section to tackle. 

In line 70, MM (as you know) holds the machine move. It must be 
reset to zero after each move. By the way, if you want to have first 
move, delete the GO TO 60 at the end of line 30. UK counts the 
number of times the program is cycled looking for a move. It is 
designed to ensure that the king is not moved without good reason 
and to encourage the program not to concede defeat too easily. 
The next few lines (80 to 100) act on the player's intentions as 
expressed after he or she has moved. 
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Line 110 dimensions the T array. Doing this every time fills the 
array with zeroes, ready for It to save the locations of each of the 
pieces. U is the variable which counts the number of pieces the 
computer has on the board. "Please stand by” appears at the top of 
the screen while the computer searches for a move. The routine in 
lines 120 and 130 goes through all the squares on the board, in the 
order dictated by the elements in the S array, storing them as it 
finds them in this order in the T array and counting them as it goes. 
The variable KM is called the ‘king marker’ and this is used by the 
computer to keep track of its most valuable piece at all times. KM is 
set to the king's location at the end of line 120. Line 130 completes 
the loop. The variable U, as | said earlier, counts the number of 
pieces on the board. If U is less than three, the computer concedes 
the game. 

The action now goes to line 580 where Z is set equal to the king 
marker. The next routine, from that line right through to 810, 
checks whether the king is in danger. This check is made whether 
or not you've signalled ‘check’ after making your move. Once 
danger is found, the computer goes to the lines from 1710 to see if 
it can move out of danger. 

Back near the start of the program, at 150, the computer goes 
through its pieces and moves the king to the end of the pieces, so 
that it will only be moved if there are no other moves it wants to 
make. It knows from its tests in the routine from 580 that its king is 
not in danger, so there is no reason to expose the king to new 
danger by moving it if the king is safe where it is. 

Line 170 chooses the piece in the sequence with which it will 
Start, choosing one of the first three. This is set back to one if the 
player has signalled check by the end of line 179. If the number 
chosen is less than the total number of pieces on the board, one is 
added to the value of O to determine which element of the T array 
will first be checked for a move. 

Line 190 sets the variable Z (which is used throughout the 
computer sequence as the ‘from location’) to the element of the T 
array chosen, and the program jumps three lines to a subroutine 
starting at 230. A BEEP produced by 230 shows the computer is on 
the job. The BEEP from this spot sounds from time to time as the 
computer is looking for a move so that you know it is still working, 
even if it seems to be having trouble finding a move. 
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The next four lines send the program to a specific subroutine, 
depending on the piece being considered. From these subroutine 
destinations, you can discover which parts of the program look 
after the ‘can | capture’ actions by the computer: 


Queen — 820 
Rook — 1300 
Knight — 1540 
Pawn — 2070 


Line 280 returns us to line 200, where MM is checked. If it is 
equal to one, then the program goes to 2310 to make the move, 
then back to 40 which calls the routine to reprint the board before 
allowing the human to enter a move. If MM equals zero, the 
program continues through to the next line and—if Q is less than 
U—sends action back to 180 where Q is incremented and the 
search continues. If O is not less than U, it means all the pieces 
from the randomly selected first one have been checked for 
captures. 

From this point the program leaps to 2180 (my well-laid plans of 
having a clear flow through the program were frustrated by the 
demands of the program when | got to the point of typing it into the 
computer), where Q is set to a random number between zero and 
four (with the double use of RND serving to bias the numbers 
towards the low end}. This number is checked to make sure it does 
not exceed the number of pieces available. You may well wish to 
change the five in this expression to a higher number to reduce the 
predictability with which the computer develops certain pieces 
first. Any number up to and including nine is quite workable. Again 
one is added to this in line 2190 and Z is set equal to the piece 
selected. The subroutine destinations will indicate where the 
control for the pieces is to be found: 


Pawn — 2140 
Knight — 1630 
Bishop — 1420 
Rook — 1180 
Queen — 940 
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King — 1710 (only if the king is not in check and the 
random number chosen is less than .07, 
to discourage the king from wandering) 


Once the computer has gone to the relevant subroutine, it 
checks to see if the flag MM is still zero. If it is, and all pieces from 
the randomly-chosen start piece have not been checked, the 
program goes to 2180 to choose a new piece. If MM has become 
one, then the computer goes to the subroutine from 2310 to make 
the move, then returns to line 40 for the board to be reprinted, prior 
to the computer moving again. The next line checks the value of 
the variable UK and if it is greater than eight, knows the whole 
routine has been checked eight times and no suitable move has 
been found, so goes to 2060 to concede the game. 

The next sequence actually makes the computer move. Line 
2310 rejects a king move nine times out of ten if the king is not in 
check, by resetting MM to zero and going back to 2180 to look for 
another piece to move. Line 2312 is triggered if the piece to be 
moved is a pawn. It checks that the program is not trying to move a 
pawn backwards and stops such a move from being made. If the 
white king is in the square in which the computer was going to 
move, the human is in check, so “Check!” is printed on the screen, 
and the computer returns to line 190 to look for another capture. 

If the contemplated move has passed these hurdles (and this 
area of the program is an easy one to modify if there are particular 
moves in the prograrn which you want to discourage, or 
completely outlaw}, line 2315 makes the move, and lines 2320 to 
2330 tell you (using an apparently very complex line to change the 
array number into board coordinates which you will recognise) the 
move which has been made. Line 234@ returns the program to the 
loop at the beginning and we are now at the board printout section. 

Despite the routine for determining danger to the king, the 
program is not always able to get itself out of check. You can 
consider such a failure a wish to concede (or, if you're feeling 
generous, allow the program to stay in check for one more move). 
Similarly, if the program moves itself into check, (a very rare 
possibility), take this as an indication that the computer has 
resigned. 
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1Q@ REH NEQPHYTE CHESS 

BO PRINT “PLEASE ENGAGE “; FLA 
SH A; "CAPS LOCK"; FLASH 6; “, THE 
Ho, “PRESS ENTER": INPUT AS: CLS 
: PRINT “" "Thank you, Please sta 


S@ GO SUB 2Bda: Ga TO 6a 

408 GO SUE 2058 

Se GO SUB 257E& 

6G GQ SUB 2558 

Fe LET NN=8: LET UK=a 

Sea IF Bes “oS” THEN STOP 

S80 IF AS="X" THEN PRINT AT @.@ 


>; FLASH 1; “Exchanging Sides": 6a 
” SUB Si20: PRINT AT &.@; 
LET Ag=" aa 


1R@a IF AgecBe THEN caPyY 
14@ DIM T(46): LET U=s@: PRINT &# 
u @,@; INK ANDS5+2; PAPER 9)" PL 


Sase Stand by 

TQ G4: IF AtSt@s33= 
33 <¢=RB THEN LET U=ti+ 
aes ZF RiS{@23=K8 


M 

“150 NEXT @: IF u<S THEN GO TO 2 
Boo 

18@ GO TO 5s8e 

15@ FOR G@=1 TO U: IF A(T (@}3 =KB 
THEN LET Tt@) =T(u3: LET Tt) =KM 
16@ NEXT @& 

a7@ LET G=INT (RND#S) 2 ( (AS="C") 


i8@ IF @<u a LET @=@31 
is@€@ LET =T(@): GQ SUB 23@e@ 
208 aa MM= i THEN GO SUB 2510: & 


230 IF @<¢U THEN GO TO 180 
229 GO TO 2158 

SOG BEEP .O@R8,RNDF3832e: IF RIF 
&S THEN GO SuB B2eR 


2408 IF At(Zi=RB THEN GO SUB 106o 
258 IF AtZ)=BB THEN &O SUB 1306 
2650 IF 4(2} =NB THEN GO SUB 1546 
#270 IF (£1 =PB OTHE SUB 2arTe 
290 IF At(X) =1@7 THEN PRINT AT 
z@, FLASH 4; " cki", & Q= 
@ei: bL MN=0@: GO TO 


Se2@ IF X-11<112 THEN GO TO 346 
SSO IF AtX-113 <6S AND A(X-411)3 >6 
5 _ AND RND<.936 THEN RETURN 

34@ LET AD=e 

SS@ LET AY=1 

360 LET AX=X+O (AY +AD) 
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Seer AX<11 OR AX>SS& THEN GO T 


Se@ LET AP=A(Ax} 
3908 IF AP=0_OR AP=R AND RND>.3S 
pA Sars =B AND RND>.S THEN RETURN 


=AY +3 
41@ IF AY<8 THEN GO TQ S60 
420 LET AD=AD+? 

430 pe a Ne! THEN GO TQ 3o5e 


450 Cer AX=X+N TAY) 
466 IF AX<11 OR AX>68 THEN GO T 


oe 
470 IF ATARAX) =N seer RETURN 
$6@ LET AY=AY + 
490 IF AY<9 THEN GO TO 458 
Sae@ LET AY=1 
Sie LET AX=X+K (AY) 
22S AX<i11 OR AX>66 THEN GO T. 


SSeG IF (AtAXI =K OR ATAXI =P)3 AND 
RND>.1 THEN Bevan 

S4@ LET AY=AyY 

Soe hae AY <9. THEN GO TO 518 


Sree RETURK 

SS@Q LET 2Z=KM 

SQe@ LET yY=@ 

6@0@ LET Y=Y?1 

6106 LET X=Z4+Nt(Y} 

620 IF X<11 OR X>66 THEN GOQ TQA 


630 IF A(X) =N _ THEN GO TO 171@ 
640 IF Y<«@ THEN GO TO 600 

BSe@ LET oS 

660@ LET Y= 

6708 LET XSz +O (Y4D) 

68@Q IF xX<11 QR X>86 THEN GO TO 


690 IF AtX) =B OR AtX) =O OR AIX) 
=R THEN GO TO 17160 

FBe TF Soe ee THEN GQ Ta 73a 
f1@ LET Y=yY 

720 IF Y<6 THEN GO TO 670 

7G@ LET D=D+ 

740 IF DO<ea THEN GO TO 67@ 
758 LET X=Z+11 

?6@ IF X>88 THEN GO TO 786 
f7@ 25 A(x) =P THEN GO TO 1718 
768@Q LET X=zZz-11 

730 oF X<11 THEN GO TO 150 


Q 


S@@ IF A(X) =P THEN GO TQ 1718 
Sie GO Ta i5@ 

S20 LET D=a 

83@ LET Y=1 

S408 LET MeoLs Y+0:3 
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ese 
91@ 
B6e@ 


IF X<11 OR X>86 THEN GO TO 
IF Atx) =42 OR Sane AND 


A(X) «<=RB THEN GO TO 
iF 


B7e@ 


GO SUB 298: 


A(X) >=B AND A(X] <=R_THEN 
IF MM<od THEN Go Ta 


IF MM=1 aEN RETURN 
LET Y=Ys 

IF Y<sd THEN GO TO 34e 
LET D=D+? 


IF O<498 THEN GO TO &3e 
RETURN 

LET D=@ 

LET Ye=i 

LET X=Z+0 0Y+ 

IF X<¢1i1 OR xobe THEN GO TQ 


IF A(X) <>E THEN GO Ta asoe 
IF RNO>.3S THEN GQ SuB 
=8 THEN GO TO 1830 


1 
ni Y<8 cele GO TO 268 
LET D=D+ 
iF O¢4a THEN GO TO 358 
RETURN 


LET X=7+R(Y¥4D) 
IF X¥<143 QR X386 THEN Gt TO 


IF A(X) =42 OR A(X} >=BRB AND 
1158 


A(X] <=RB THEN Go TO 


1118 


IF A(X) >=B AND ACX3 <=R THEN 


GO SUB 296: IF MM=@ THEN GO TO 


r] 


Li52 


fot fe fod as fs fs ut Jaf 
OST Fe hh 
FORD Fa DED Pt 


iF MM=1 THEN RETURN 
LET Y=¥Y#1 

iF ¥<&8 EN GO TQ 10868 

LET D=D+ 

ar D<2s& THEN GOGO TQ 1078 
RETURN 

LET pD=@ 

LET yYe=i 

LET X=Z+4+R(¥4D) 

iF €<141 OR X>86 THEN GO TO 


IF A(X) <sE TREN GO TO 1i27e 
IF RNO<¢.1 THEN GO SUE 230 
IF MMN=1 THEN RETURN 

LET YeYr1 

IF Y<«¢8 THEN GQ TO i288 

LET D=D+? 

IF O<268 THEN GO Te 1198 
RETURN 
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LET D=@e 

LET Y=i 

LET <X=2+Bi1y+ 

iF X<i1i OR eae THEN GO TO 
IF ACX) =42 QR AUX) >=BR AND 
=RB THEN GQ TQ 1398 


IF A(X) >=B AND A(X} <=R_ THEN 
>: IF NM<o2 THEN 6a Tea 


ZF MM=1 THEN RETURN 

LET yY=Y1 

IF Y<8 THEN GO TO ise2e@ 
LET O=D+7 

iF O+283 THEN GO TO 1518 


LET Xz =Z+B(Y 
IF X*<11 OR Cae THEN GO TO 


IF ACX) «+E THEN GO TO 151@ 


MM=1 THEN RETURN 
LET YsYri 
IF Y<s TaeM GO TO 1446 
LET D=D+ 
iF Hs THEN GO TO 1436 


LET XeZ4N CY) 
IF xX<11 OR X>88 THEN GO TQ 


IF A(X) =42 THEN GO TO 1600 
ZF A(X} >=B AND AUX] <=R THEN 
UB £92 

ZF OHM=1 THEN RETURN 

LET YW=Ysi 

EF Y¥<3 THEN GO TO 1558 
RETURN 

LET Y= 

LET X=Z4NtINT (RNDs3+133 

IF *<11 OR X>88 THEN GO TQ 


IF A(X} =42 THEN GO TO i646 
LET Y=¥YH#l 

IF ACxX1=E£ THEN GO SUB 2c08@ 
IF MN=1 OR Y>2@ THEN RETURN 


GO TO 13648 

LET YR=i 

LET 2=KM 

LEF X=Z+K (YR): LET X1=x 

IF X<11 OR X>88 THEN GO Ta 
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175@ IF At(x} =42 ee a 8S AND FR 
(%1<83 THEN GO TO 

Af6Q IF A(X) >oF7 AND OATX) <215 THE 
N GO TO 2e838a 


38@@ LET X=Z4N(Y) 
23810 IF X¥<11i OR X>88 THEN GO TO 


4820 IF AtXI=N THEN GO TO 20228 
1836 IF Y<8 THEN GO TO i?7se 


186@ LET Yaz 40 (Y4D 
1670 IF xX<11 OR x obe THEN GO TQ 


1880 IF A(X} =B OR ATX) =@ OR AC) 
=R THEN GO TO 2636 

1898 IF a= THEN GO To i928 
19@@ LET Y=¥:3 

1910 IF _ Y<8 THEN GO TO 1868 
2g92@ LET D=D+7 

1930 IF D<49 ven GQ TO 1868 
494@ LET x=2+11 

4950 IF X>88 THEN GO TO in7@a@ 
496@ IF A(X} =P THEN GO TQ 2638 
2970 LET x*=Z-13 

4980 IF X<211 THEN GO TQ 26806 
2996 IF A(X) =P THEN GO TO 2838 
2@0@@ LET X=X1: LET Z=KM 

2@a@a LET MM=1 

2220 CO SUB 2351@: GO Ta 46 

2@38@ LET YK=YK+1 


=KM 
R@5@ IF YK<¢S THEN GO TO 1728 
2862 PRINT AT we Pas FLASH i;"“F ca 


is 
2ea6@ IF A(x) >=B AND A(X) <=R_THEN 
LET MM=1: IF A(X) =P AND RND<i.2 
FHEN LET HN=@ 
RBS@ IF MMN=il THEN RETURN 
2i8@ FF ==12 THEN RETURN 
2B1lIG LET x=2-11 
Biaze IF A(X) >=B AND R(X) ¢<=R_THEN 
LET MNM=21: IF A(X} =P AND RNDi.2 
THEN LET HM= 
#3i3@ RETURN 
Big@ IF Z-1@s#tINT (27103) =7 AND 
A(Z-1} =E AND A(Z-2I=E AND (AtZ-1 
Si=sE OR At(Z-43)=42) AND_(A(i+rfl= 
E OR AtZ+F7}) =42) THEN LEY X=Z2-2: 
LET MM=i: RETURN 
#2158 IF A(Z-1)I=F AND ACZ-12) <328 
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AND A(2+8) «36 THEN LET X=Z-i: LE 
Y NM=3: RETURN 

21608 IF RND<.@5 AND AtZ-1)1=E THE 
N LET xX=24-1: LET MNM=1 

2ivre RETURN 

218@ LET @=INTF (RNDSRNDs5)}: IF @ 
>U THEN GO TQ 2185@ 


So 
2266 IF Atzis AND Aag<>"c™ AND 
RND<«.@7 THEN GO SUB i?fi 
2270 IF MM=@ AND @<U THEN GO TO 


22808 a MMN=1 THEN GO SUB 2asie: G 


a 
HBUGQ LET UK=UK441: IF UK>8& THEN G&G 
a TO 206e@ 

2305 GO TO 2186e 
S318 IF RtZI=KEB AND AEC" Ae 
RND>.12 THEN BEEP .@85,-3: Le NM= 
a: 60 Te 21562 
2G3i2 IF A(ZI=FPB AND [((X-iGsINT ¢ 
X38) >2-1@Qe2INT (2710) OR ABS (x- 
#331313) THEN LET MM=0@: GO TO 218 


2 

2014 IF slags a THEN PRINT ATF Bae 

3 Che LET NM=8 
Ususa: ‘ea To 19@° 

asis LET A(X) =A(Z): LET AZ) =E 

2020 PRINT AT @,@;"“I moved from 


233@ LET FZ=INT (2718): PRINT cH 
RS (FZ4+64) 5,2-10sFZ;" ta ; LET 
Viera oe il PRINT cHRs’ (F264 


F 


55s IF NMM=8@ THEN Ge Ta 23708 
2560 BEEP 1,RNDz1@0: BEEP i, 1@+RN 
Dzi@: BEEP 4, -RNDzie 
#O7@Q PRINT AT @,@;' 
“;AT 4,@;: Go Su 


#22S@ FOR X=8 TO 1 STEP -a 

23908 PRINT THE 10; ENVERSE 3; ™; 
INVERSE @; 

2480 FOR Y=1e:-TQ 8G. 

res IF AC¥+1} =PB THEN L. LET ACY+4 
a IF ACY+8)}=B THEN LET R(Y+8) 
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BAGG PRINT CHR ARixty 
Pa4d0Q NEXT Y: PRINT TNUERSE ag &: 
NEXT X: LET NM=a = 
245@ PRINT TRE 18; INVERSE 3; ° 
aeee oe on 

466 RETURN 


22908 LET Maz +K T@K 

pis IF Atm} rhe OR AINI 365 AND F 
(83 <3 OR MM=08 THEN GO TO 2548 
2510 LET X=N 

#2520 LET KM=x 

25G8 RETURN 

#25408 IF G@K<iS THEN Go TO 2498 
255@ IF As<>"C" THEN RETURN 


SS7ea I 
R71 “FAS: 


ae INPUT “FROM "; (ASI: praGips Stes 
2505 IF LEN Bese THEN GO TO 259 
260@ LEF X=162 (CODE AS-Oad: UAL A 
2610 LEFT Y=1@2i(CODE BS-64)+UAL B 


26208 INPUT "“Exnter C - check 

P =- ta print 5b 
gard X - to exchang 
® Sides S - to stop ga 
wh : ENTER - ta continu 
2526 IF AtY) ae AND ACY) <= TH 


SUS 


: RiXs =46: RETURN 
2640 RANDONIZE 


2 LET MM=@: LET 8 
Pese DIM A992: DIN R(2@eas: DIM B 
(28): DIM Nt@i: DIM @(56): DIM K 
(8): DIM Z(88): DIM S164): BIN T 
ii6} 

BEG@ LET P=112: LET R=144: LET N 
=110: CET B=98: LET @=113: LET K 
=31@7: LET E=46 

2PE7@ LET PB=80: LET RE=82: LET N 
B=78: LET BB=66: LET @B=61: LET 


268@ FOR 2=1 TO 99: LET At(#}=4e2: 


N Zs 
2698 FOR 2=1 TQ G4: READ X: READ 
Y: LET ACMI =¥: NEXT & 
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27@8 DATA 18,62,28,78,38,66,48,8 
271@ DATA 58,75,68,66,78,78,86,3 
e720 PATA 17,8@,27,80,37,80,47,8 
2732 DATA 57,8@,67,8@,77,60,87,8 
2748 DATA 16,46,26,46,36,46,46,4 
S7SB DATA G6, 46,505,465, 76,45, 85,4 
276@ DATA 15,46,25,46,95,46,45,4 
2778 PATA 55,46,65,46,75,46,85,4 
2780 DATA 14,46,24,46,34,46,44,4 
2790 DATA 54,46,64,46,74,46,84,4 
S820 DATA 13,46,23,46,33,46,43,4 
2810 DATA 53,46,65,46,73,46,83,4 
2020 DATA 12,112,22,112,92,112,4 
2630 PATA 52,112,62,112,72,112,8 
Be4@ DATA 13,144,21,116,31,98,44 
28S DATA 51, s87,61,88,78, 156,05 
2868 FOR Z=1 TQ 8: READ NizZ)}: NE 
2878 DATA 19,-19,21,-21,-8,8,12, 
2680_FOR Z=1 TO 28: READ Riz): N 
S898 DATA 10,20,39,48,58,58,7e 

2200 BATRA -1,-2,-31-a/ -s% ei -F 

2918 DATA -16, -4e) 3a) -4@, -Se)-6 


2Q2S DATA 1, 2,3,4,5,6,7 
ag libel z=i TQ 28: READ Biz: N 


xT : 
aoe S BATA -11,~-22, -33,-44,-55,-6 
hires 
23950 DATA 11,22,33,44,55,66,77 
2360 DATA 3,18,27,396,45,54,65 
wee DATA -9,-18, -27,-3G6,-45, -S4 


dase RESTORE 2acea 
ao FOR 2Z=1 TO 56: READ @i23: N 


eee FOR Z=1 TO 8: READ Kt2i: NE 
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$818 DATA 472455, See, =o 44 5 = 
Bea2e FOR Z=1 TO 64: READ Stz}: WN 
5as@ DATA 46,.56,36,66,47,57,45,.5 
3e4@ DATA 37,67,35,65,.28,78.27.,7 
@S@ DATA 44,54,26,76,36,68.17.8 
DATA 18,88,34,64,25,75,16,8 
DATA 48,24,74,15,85,14,84,4 
DATA S3,35,.63,23.73,52,42,.6 
DATA 32,63,13,.72.22,12,682,4 
@@ DATA 51,81,61,21,71,11,81,5 
3@ PAPER 1: BORDER i: INK F: © 
20 FOR Z=1i TO 868: LET Zitz =At 
38 FOR 5- 2 TO 88: LET x=2-10% 
Q@ THEN GO TO 32 

Lev A(Z} =2(Z+9-X22: 


Biv8 FOR Z=11 TO S88: LET M=Aiz2 
3180 IF Ns=B THEN LET A(z1 =A (Zz) + 


S1i8@ IF Ms=RB AND M>=BE THEN LET 
Rigi =Rtz} -PH+P 

S208 NEXT £ 

Seis RETURN 

SSa8 LET COMMENT=INT f{ > + 
RDER RNDxS+e: GO SUB Saoe+ 


BS2@ BEEP 1,1: BEEP 1,2: BEEP i. 
SOO BORDER 1: RETURN 


3 
BSBdG PRINT AT 8.8; “Well dane”: & 
& SUB 3O°78: RETURN 


9 8 © & 
i mm +) om 
8 8 © & 


COIN CAS bf CP dN RA OE Dae Nd gd Td dd 


S3SO PRINT AT 8,6, "GoO0d mave*: & 
QR SUB O3re: RETURN 

BSBEB PRINT AT @&.68; “Got mei*™ 

BS?OG FOR T=1 TO if: BEEF .@5,1: 
HORT = 

SBR PRINT AT @,8;" a 


RETURN 


BoardGames 111 


Here are some board printouts of the early stages in a game 
against NEOPHYTE CHESS: 


JI DWs « « 
PODS FA td 


iS 


It is possible to modify the program so that it ‘plays against 
itself’, by getting it to exchange sides after every move. It will also 
print out a permanent copy of the game by printing the board after 
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every second move. To turn the program into ‘auto-chess’, modify 
it so the start reads as follows: 


4@ REM NEOQPHYTE CHESS 
435 LET PR=3 
2a PRINT “PLEASE ENGAGE “; FLA 
5} i;¢ ‘CAPS LOCK“; FLASH @;", THE 
NN“. “PRESS ENTER“: INPUT AS: CLS 
: PRINT “C'TRaNK you, Piease sts 
Nd bY" 
Ba GO SUB 2PE4G: GO TO 6e 
48 GC SUB 235e@ 
FE LET HN=8: LET UK=@ 
BQ IF AS="“S" THEN STOP 
Ba 20) (eae 
QQ IF S@g="X" THEN PRINT AT 8.8 
> FLASH 1; “Exchanging sides": GO 
SUE F126: PRINT AT @,@;" 
aoe LET Aga 
360 IF PR= @® THEN COPY : LET PR= 
3: Ga Fa 33@ 
41@sS LET PR=e 


if you do not want a printout, delete lines 15, 10@ and 105. 


Here is the start of one game played by the modified program: 


Bee (CERF ses 


~ReoberS 
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By the way, running auto-play games in this way is, as | said 
earlier, a very good way to debug the program, as eventually most 
of the GO TO and GO SUB destinations will be tested. Cut out the 
printout facility if you like, and just let the computer run all day, 
playing game after game. If it stops at any point (other than to 
concede to itself), you'll know more or less where a program error 
has occurred. 

The program was modified slightly further to enable it to choose 
to print out board positions from time to time, rather than after 
every second move. To get these random printouts, the start of the 
program should read as follows: 


168 IF PR=@ THEN LET PR=i1 

Z@1 IF _EPR=1 AND RND<¢.1 THEN COP 
YW : GO FO 434318 

AOS LET PR=a8 


Here is a selection of ‘snapshots’ of one game produced in this 
way: 
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RECOCERSH _ 


= 

= 

= 

= 

+ 

Reacts 
: 


If you'd like to read more about chess and computer chess there 
are a number of relevant books and articles, including: 


Intelligent Computer Games Levy, D., Creative Computing, November 1980 (pp. 
158—163) and December 1980 (pp. 208-213) . 


Machine Intelligence: A Function of Human Ingenuity Georgiou, C.J., Creative 
Computing, June 1982, (pp. 124~—135) 


The Sargon Chronicle Ehara, T.H., Creative Computing, May 1980 (pp. 42-44) 


World Chess Championship Computer Ehara T.H., Creative Computing, January 
1979 (pp. 134-136) 


Attention, Chess Phreaks! Palenik, L., Creative Computing, January 1979 (p. 78) 


Tumult and the Toronto Tournament Dowhal, D., Personal Computing, May 1978 
(pp. 98—113) | 


A Romanian Rhapsody (source of the story of Felix at the start of this section), 
Friedberg, U., Personal Computing, October 1978 (pp. 76-88) 


Sargon vs. Microchess Martellaro, J., onComputing, Winter 1979 (pp. 26—30) 


Programming a Computer for Playing Chess Shannon, C.E., Philosophical 
Magazine, vol. 41 (7th series) (pp. 256—275) 


Chess Skill in Man and Machine Frey, Peter W. (Springer Verlag. 1977) 
Technique in Chess Abrahams, G., (Dover Publications Inc., USA, 1973) 


The Complete Book of Chess Horowitz, |.A. and Rothenberg.e P.L., (Collier 
Macmillan, 1969) 
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REVENGE OF CASTLE DREAD 

No collection of games programs would be complete without an 
Adventure. | decided that the Adventure in this book should be one 
of the major programs, so wrote the rather formidable-looking (in 
terms of its length} REVENGE OF CASTLE DREAD. The credit for 
producing the first computer Adventure program goes to Crowther 
and Woods, who wrote their program, just called Adventure, on 
the Stanford University mainframe. The computer supported a 
number of terminals on a time-sharing system and the output was 
typed onto long rolls of paper with a unit rather like a Telex 
machine. 

Adventure became immensely popular, and pirated copies were 
soon up and running across America and eventually in Britain as 
well. AS more and more computer buffs got their hands on the 
program, they modified and improved it, eventually shaping 
versions which were radically different from the original. However, 
twenty years after Adventure was first up and running, some US 
software companies still sell a program which is billed as ‘the 
original Adventure’. 

Writing an Adventure program is a fascinating exercise. In 
essence a Self-contained, logically-consistent universe is invented 
and mapped. By ‘logically-consistent’ | mean that in a properly 
constructed Adventure program the player can cross a bridge to go 
along a road and, on walking back down the road, will find the 
bridge still there, or some convincing reason why it is not there, 
such as ‘The aliens from Epsilon IV took it back to their museum 
planet with a matter-transporter’. Random adventures are frus- 
trating and offer few lasting challenges to the player. 

In REVENGE OF CASTLE DREAD the action takes place within 
a castle where there are a number of monsters, including ‘an 
angry warlock’, ‘a fire-breathing Fearbringer’ and the loathsome 
‘Guardian of the Black Lagoon’ who wander about the castle during 
the game and must be fought (although you can attempt to flee 
if you like, with a 50 per cent chance of succeeding). In addition, 
there are up to four chests which hold good and bad surprises, a 
bottle containing a magic potion which may be beneficent or evil, 
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and so on. It is unlikely that you will meet all the monsters and 
surprises in every game. 

You will not be given a map of the castle. Part of the fun of 
Adventure-gaming, whether it is with a computer or in one of the 
role-playing sorcerer/dungeon games, is trying to deduce the 
spatial relationships of the various ‘rooms’ encountered when 
wandering about the environment. The castle in this program was 
mapped in some detail, and I've made sure that the clues given to 
you in the PRINT statements adhere accurately to the relationship 
between the rooms. This was done to both encourage you to map 
the castle as you go through it, and to teach by example how 
‘adventure environments’ can be constructed. Once you feel you 
have a map which corresponds reasonably closely to the one 
encoded in this program, you can ‘wander around’ the castle and 
check your map. 

The point of the game is simple and relates to one twist I’ve 
included to make the map construction a little more difficult than it 
might otherwise be. Allinstructions within the program are given in 
terms of directions (north, south, east and west) and all doors face 
one of these four directions. You should start your map-making by 
putting the four directions at the top of your sheet of paper. You 
start the adventure at the top of the paper facing down it (that is, 
facing south). The first statement you see includes the following: 


You 4Ff2 at the entrance to af 
BRcieni., Forbidding-lLooking 
Castle. You are standing Gib 
the north side of the castle, 
and a5 you took south 

towards the crumblina 
Structure, you matice the 
entrance Portal is open 

Sand unguarded 


What doa You want to da nowt 


The last line ‘What do you want to do now?’ follows every 
description of the environment (apart from a few questions, such 
as ‘Do you want to drink the potion?’ which demand a “Y“ [yes] or 
“N" [no] answer} and can be answered with one of seven answers. 
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Enter this: And the computer will understand you mean 
this: 

“N" Move North 

CS Move South (the answer you must give to 
the first frame) 

ee Move East 

"ww" Move West 

afalee Fight 

Amey Flee 


Any other answer at this point will simply cause the screen to 
clear, and it will then be reprinted. ("Q” can be also used to quit the 
game at any point.) 

Role-playing games played with humans and a referee 
(‘Dungeon Master’) generally follow certain conventions which 
dictate that a character's power and personality be determined at 
the beginning of a game by rolling a number of dice and reading the 
characteristics (like ‘shrewdness’ or whatever) from a table. When 
two characters meet in conflict (dungeon-players call this 
interaction, the high point of the game, the mélée), a further set of 
dice-rolling and table-consultation is needed to determine the 
result of the combat. 

To simplify the system so that you are not overwhelmed with 
complex rules to understand before you can enjoy this program, 
I've stuck to the accepted conventions but have ensured that 
the Spectrum does all the work, both of ‘generating’ your own 
personality and that of the monsters you meet as well as resolving 
any physical clashes you may have. 

The story-line and point of the game is simple. You, as a well- 
known intrepid explorer, have come across this crumbling ruin of a 
castle. Being of intemperately curious disposition, you go through 
the entrance portal in the north wall which you have noticed is 
open. Once you enter the castle through it, you'll find you cannot 
leave through it. You must explore the castle and attempt to find 
another exit. As you stand in the entrance hall ‘which is hung with 
rich fabrics’ you remember an old legend which is told about this 
castle. The last owner, 300 years before, was a powerful wizard 
who with his dying strength created a legion of horrors to guard his 
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home from intruders. Apart from the northern portal, which is now 
forever magically sealed, the only way out of the castle is via the 
Black Lagoon which is underneath the castle but is reached from 
within it by an ordinary-looking door. It is rumoured that the wizard 
sought to protect his castle even more by creating an unpleasant 
creature of whom nothing is known except his title, The Guardian 
of the Black Lagoon. 

Your personality in this game is encapsulated by three ‘attri- 
butes’, magical power, strength and wisdom. Each creature 
shuffling through all eternity through the decaying rooms of the 
castle is also endowed with these three attributes. The current 
state of your personality appears on the screen as follows: 


When you meet a monster and you decide to battle with him (or 
attempt to flee and are unable to do so), you fight in terms of one 
attribute only, but you can choose which one. Generally, the 
greater the difference in your favour between your particular 
attribute score and that of the monster, the more likely you are to 
win. Therefore, if your MAGIC was 20, and the MAGIC of the 
monster was only 4, and the difference between other attributes 
was less, you'd be advised to choose MAGIC for your mélée. 


You are in the entrance hall, 
Which iS HUG with rich 
Fabrics. Oocrs tead ta the 
Bast and the south, and there 
iS 2nh OPEN Fortal to the 

west 

The room contains a fire- 
breathing Fearbringer. His 
Wisdom is 16, White he 

mas 2 Strength rating oF 

li, amd his HaGiC SRILL 

25 29 


What do You want to do nowt 


122 Adventure/Simulations 


iA 

Ty 

TES 
TRiS SMALL FOOmM. which 
Features an ornate sctutpture 
QF the mOON Goddess on a4 
Pedestal im the nerth-eest 
corner, iS the Royat 
Presente Chamber. BOooars lead 
ta the south, the west ane 
to the east 
In frent oF Hou 45 82 Chest 
Labelled With 2 Large Hil 
Will uott open it ¢€Y or Ni? 
Naw Wisdanm 

You: is Guardian 2G 

The difference is §& 
end the Gusrdian teads 
TRis coOUunNd carries 8 PEeNatty 
Of Bi Settribute Points 
Bnd Yuou Lose Sil Wisdom points 
At the Srmd OF the crucist 
battle you have 


Don't start getting worried at this point if it already seems to be 
getting complicated. The program does nearly all the work for you 
and guides you through the game, ignoring or rejecting bad inputs. 

Each fight gives you the chance of increasing the attribute with 
which you're competing or of having to pay for being ‘wounded’ by 
losing attribute points. Lose all your points, and the game will 
terminate. You need to acquire as many attribute points as possible 
for the Final Encounter. When you discover where the Black 
Lagoon is located (and — to frustrate you slightly —it can be in one of 
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two locations, so your maps are not 100% transferable from game 
to game) you'll have to engage in three battles, one in each 
attribute, with The Guardian of the Black Lagoon. 

Some of the chests you'll find littering the house may contain 
‘dragon's gold’ and it is worth acquiring this, because it can be used 
to buy additional attribute points after you've met the Guardian, but 
before you've had to fight. You must come out of this final series of 
battles with at least 10 attribute points altogether to survive. 

Each mélée works as follows. After you've selected the attribute 
with which you wish to wage war, the computer will work out and 
display the difference between your scores. If, for example, you'd 
decided to battle with WISDOM and your wisdom score was 15 
while the monster's was 2, the computer would print up (line 5240) 
“The difference is 13", followed by “and you have the advantage”, 
meaning your score is the highest. Next, in keeping with role- 
playing games which, as | pointed out before, engage in much dice- 
rolling, a six-sided die is rolled and the number that comes up is the 
‘cost’ of the encounter. A random number is generated between 
one and the difference of the two scores. This is then compared 
with your attribute score, and the monster‘s score. The winner is 
the one whose attribute point is closest to the difference. You may 
wish to change this so the winner is the one furthest away from the 
random number. If the difference between attribute scores is just 
one, the random number must be one, so the player with the 
lowest attribute score will win (there is a hint in this line for the 
observant which may help you win more than your fair share of 
mélées). I'll leave it to you to work out who wins if the sttribute 
points are identical. 

Now, winning and losing are two quite different things in this 
game. The cost and rewards depend upon the attribute you've 
selected, and your present score for that attribute 

You select the attribute with which you want to fight by entering 
its initial letter (M for MAGIC and so on) and the computer uses this 
information in the routine from line 5340 to determine the penalty 
or otherwise of the encounter. If you have fought with MAGIC and 
lost, you lose the total value of points rolled on the single die if you 
have at least that number of points to begin with. That is, if you 
have only two MAGIC points, and you lose a fight with a penalty of 
three points, you will not lose any. Again this is simpler in practice 
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(as the computer will work out whether or not the penalty should 
be paid) than it may appear when reading about it. If you lose in an 
encounter when you've chosen STRENGTH as the attribute to 
battle with, again you'll lose the penalty rolled by the die if you have 
at least that number of attribute points to begin with. If you lose 
while challenging with WISDOM, you will only lose half of the 
penalty rolled, rounded down to the next whole number (so if the 
penalty is one and you lose, it costs you nothing, as half of one 
rounds down to zero). 

Winning is much more fun. You can gain more than you can lose 
from a mélée using MAGIC . Win with MAGIC and you'll get double 
the die roll. With STRENGTH, you'll get nothing for a victory (which 
is perhaps better than losing, but not much, so you may be advised 
to avoid fighting with strength as you are often no match for the 
muscled monsters), and a win with WISDOM is worth half the die 
roll (as a loss with WISDOM equals a loss of half the die roll). 

The program follows a pre-planned structure so it is relatively 
easy to get at sections of it if you want to modify it. (Once you've 
solved the map encoded in this program you may want to change 
it, ina way which I'll describe in due course, to enable you to use a 
more complicated map which will still be peopled with the same 
monsters and follow the same rules. Once you've mastered that, 
you'll probably want to adapt it to follow an original map of your 
own.) : 

The program is structured as follows: 

Lines 20-170 Report (which room you're in, where the exits 

are and the like) and main program cycle 

Lines 2000-2050 Monster descriptions 

Lines 4000—4940 ‘Final Confrontation (the Black Lagoon, the 
three final fights, the ending) 

Lines 5000-5620 Actions (you enter your direction of move- 
ment or your desire to flee or fight; fights are 
conducted in this section of the program, and 
rewards and punishments determined) 

Lines 7000-7500 Contents (this section holds such things as 

the four chests, and the bottle of magic 

potion; it is entered randomly from the end of 
the ‘actions’ section of the program) 
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Lines 8000-8140 Room description, and calls monster sub- 
routine 

Lines 9000—9670 Initialize 

Lines 9900-9990 Delay/sound routine (called repeatedly 
throughout the program, to add to the colour 
and give you a chance to read what is on the 
screen before itis cleared) 


The most important part of this program and the key to any 
Adventure program, is the mechanism which ‘holds the world’ in 
place, determining the relationship between various parts of the 
system, checking potential moves between elements of the 
system to make sure they are legal. From two of the’rooms in our 
castle you look out on to the ‘Contoured Garden’ but you cannot 
get into the garden and walk across it to the other room. (The 
garden has been included because, apart from making the castle 
description more interesting, it gives map-makers a clue which 
should help to tie their castle plan together). 

| am going to explain now how this program keeps track of the 
components of the system, but | do not want you to study it too 
closely before you play the game or it will remove any element of 
enjoyment. Look at lines 9570 to 9680. The DATA statements here 
contain a lot of useful information (and there are a few dummies in 
them, just in case you do decide to try and work out the map armed 
simply with this information). Look at the fourth DATA statement 
(line 9600). The first two elements of the string are the number of 
the room to the north of the room ‘held’ by that DATA statement. 
There is nothing in that position, so there is no north-facing exit 
from that room. The next two elements tell you that room seven is 
to the south, the next two indicate an east-facing exit leading into 
room two in the castle, and the next two that room five lies to the 
south. The two Zeroes after that are used for storing information 
regarding the contents of the rooms. 

You can use this kind of referral within DATA statements to hold 
any map. If | was in the room signified by line 960@ and | said | 
wanted to go north, the computer knows it simply has to look at the 
first two elements of the string that holds that room. If they are 
both zero, it comes back with the information “NO EXIT” and 
requests a new direction. If another number is found there, the 
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variable which is assigneed to the room number (which is Z tn 
much of this program) can be set to the VAL of those particular 
elements. This program makes extensive use of Sinclair BASIC’s 
very simple string-slicing techniques, holding the monster 
attributes within the elements of the M& array, and your attributes 
in JS. 

It is easy to modify these as the game progresses. If you defeat a 
Fearbringer in one room and reduce his MAGIC to 9, when (and if} 
you meet him again somewhere else in the castle, his MAGIC level 
will be at the reduced rate. Meet a monster enough times and you 
can just about wipe him out. Having monsters remain ‘the same 
monster’, even if they have blundered into another room, is 
another element which helps keep the Adventure universe self- 
consistent. 

If you had a very simple Adventure universe of just four rooms, 
you might join them as follows: 


The doors are shown on the walls they join. The rooms could be 
designated, using the same system as used in CASTLE DREAD, as 
follows: 


Room one "00030200" (nothing to the north, room three to 
the south, room two to the east, nothing to the 
west) 

Room two “05040001” (note that ‘outside’ the world needs a 
reference number, such as the five we've used 
here 


Roomthree “01000000” (not many exits here) 
Room four “02000000” (nor here) 
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Suppose you were in room two. The PRINT statement 
describing the room might say: “You are ina small, square room. A 
door to the outside world is in the north wall, there is another door 
to the south, and one to the west. Where do you want to go?” If the 
player enters “E” the computer looks at the ‘east elements’ of the 
DATA string which represents room two (these are the fifth and 
sixth ones) and sees there are just two zeroes there. It therefore 
knows the player cannot move, and signals: “You can't walk 
through walls” and waits for a new direction. If the player this time 
enters “S", meaning he or she wishes to move south, the 
computer looks at the south elements of room two’s string 
(elements three and four) and finds there “04”. This means the 
player is moving from room two to room four. The computer only 
has to set the variable holding the room number to the VAL of the 
indicated elements of the room string, and it knows where the 
player is. Notice that there is no reference, within the PRINT 
statements, to ‘room one’ or ‘room two’. These are for internal use 
only. 

| suggest you enter the program now andrun it until you begin to 
understand how it works. This will give you a pretty good idea of 
the floor plan of the castle. The map will be easier to draw if you 
make a series of separate squares on your sheet of paper, labelling 
them with the names of each room as you discover them (suchas 
‘Hall of Plots’) and draw little ‘corridors’ connecting them. These 
can then loop over and around each other as you gradually lock in 
the relationships and the map can eventually be redrawn neatly 
once you're confident your map corresponds with the one hidden 
in the program. Once you've got this, you can ‘wander through’ the 
castle at will, checking your map against the real thing. After 
playing the program a few times, return to this book. Following the 
listing, | will discuss some ways of modifying and improving the 
program and give you ‘some more general ideas on writing 
adventure programs. 


1@ REM REVENGE OF CASTLE BREAD 
2@ GO SUB Saas 

SQ CLS 

35 IF Jg="@eeeee" THEN GO TO $s 


28 PRINT INVERSE 1; NS; ", your 
attributes are: 


a 
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SQ IF VAL f(usti Tea 
$US ti TQ 2) 


= 
FRINT TAB 4; INVERSE 1 
4 


GOA IF VAL (Usa FTO 
PRINT TAB 4; INVERSE 
"sH SiS TO a3 

FO IF VAL tUYsZ te TO 
PRINT TAB 4; INVERSE 
“;udglS TO Gi 

SQ IF MONEY >@ THEN 
» INVERSE 1; “WEALTH: 


jor 


B63 
BE 


= 


$" 


3) 3>@ THEN 
2°NAGTC: * 


}33@ THEN | 
; “STRENGTH 


3130 THEN 
3; °WTSDON: 


RINT TAB # 
37 NONEY 


96 IF Js="E80EGQ8" THEN PRINT “ 
The adventure has ended", “Yau ha 


¥e@ eE€xXhausted alk your 


2 Powers 


You Fought bravely™,"and well bu 
ij caulld nat endure”, "the struggi 
S...--Farewetit..."": STOAP 


188 GO SUB PRUSE 
330 GO SUB ROON 


42Q LET Ne@: IF 2Z>3 THEN_IF RND 
>.5 THEN GO SUB FOeBa: POKE 23692 
eet 


3308 GO SUB PAUSE 
aa@ GO SUB ACTION 
A508 GO SUB PAUSE 


35Q REN £2 SEF FF SP LEESE 
20860 REN MONSTER SUBROUTINE 


SHiG IF G=2 THEN PRINT “There as 
an angry waeriack in", "the ra oNs 
ne has 3 ME gict. "rating oF "2S 
i2,2 TO 33;", his Strength”. “1is 
“3 MNgt2,.¢ FTO 53;" and his Dee 
35 ";HE12,6 TO Fi 
2020 IF @=2 THEN PRINT “The roar 
contains a Fire-", "breathing Fe 
Srbrainger. His", “@gisdom 35 “ZNSE 
SiS I OMe oe White he"."h3as 3 St 
rendgth rating OF" MS(2,4 TO Si; 
> @Nd AGS MSaGIc SKILL", “IS “FNS: 
2.2 Ta 33 
BOSQ IF @=3 THEN PRINT “Harrars: 
You‘ve stumbled in an”, “the hid 
ang Ptace af the awful”, "Saulthr 
Sat. You can see at a", "glance bh 
aS strength is “;NFIS,4 FO S33", 
“,"hRAS MAaGIic ability rates "SMR 
G,2 TO Bi;".,", "and his wisdam is 
“INS(S,.6 Ta Fi 
2OQa08 FF GQ=4 THEN PRINT “You've =f 
FiaiPpped aver saomethang™, “in the 2 
ark.": GO SUB PAUSE: PRINT "It 2 
MAKES aNd yvoivre Face ta’,”’ Face 
Bith Gravetpit, the”, “Kneécrushe 
r. Gravelpit’s magic’, “is “jJNSte 
2e TO 3B3;", His Strength is" ,NSti 
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&,a TO S3;", and his Wisdom is ™ 
IMGP(4d.S Ta Fi 

SaSO0 IF @=5 THEN PRINT “Now you~ 
re an traubtie.": GO SUB PAUSE: F& 
RINT “This room halds the dreads 
a°."enemy af all who enter the. 
“castle, HNotvling oF Nolf Glass. 
“J,"'Nith 2 Strength af “|JNFEIS,4 FT 
GO Sis", Wisdam", “AF “|FMEIS,8 Ta 

FI; and Magic of “|JNSF(S,2 TA Bz 
7", he 35 an","enemuyu to appraath 
With cautian”™ 

2EG6Q GO SUB PAUSE 


HOEaTo RETURN 

#SSQ REM SSS EESLETETE 

a4800Q REM END OF GANE 

#018 PRINT “You have stumbled on 
tO the”. "“Marshy MUd Surraunding 

the™,”"BlLactk Lagoon underneath th 


Sloe cca tele. TO escape Fram the* 
2“Castle, you must Fight The," 
uardian OF the Black Lagoaan" 
4G20 PRINT “"“The Fight Bust inve 
ive gl", "attributes...and yvousi 
Lape 


i need™“."a@ totat of IM te |S 


PE 


4930 GQ SUB PAUSE 

4040 TIF MONEY>@ THEN PRINT “You 

nave S$°; MONEY, " worth af", “gola* 
42050 GQ SUB PAUSE 

4000 PRINT ““The Guardian’s attr 


4a7a PRINT TAB SB; "MAGIC: “;NSI6, 
4@eae@ PRINT TAB 3; "STRENGTH: "“j;NS 
i6,4 TO S$) 

4080 PRINT TAB 3; "WISDOM: “; NST 
b= Spee 

22i08@ PRINT ‘““Your attributes: " 
4110 PRINT TAB 3; "MAGIC: “;USt2 
To 2) 

3120 PRINT TAB 3; "STRENGTH: “";us 
ig TO 43 

4130 PRINT TAB 3; "WISDOM: “;ug¢s 


TO 6G} 
4149 GO SUB PAUSE 
a2450 IF MNONEY «100 THEN GO TO 427 


m= 
216@ PRINT yOu can buy attri bu 


te oints”’,. "Far $100 eath" 
4178 PRINT “air you want ta buy, 
enter the","“initial af the atti 


Bute you", “want, FOLLowed bY th 
Mumber' i 

3350 PRINT “of points. Enter (‘N 
2F you da". "nat want te buy" 


Po 
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42198 INPUT FLASH 41; “Attribute? 
zis 

42300 IF Es="N" THEN GO TO 4278 
421@ INPUT FLASH 1; “Amount? “3 RS 
4220 IF MONEY-AM<s32 OR AN*1@@ TRE 
NOoGQ TQ 4216 ‘i 

4230 TF Eeai"4"° TREN LEY JSi1 FTO 
BISSTR$e (VURAL (sll TA BiI+tINT (FA 


MY¥1O@@Qi3 
= =H"S" THEN LET cigis hs 
1AL fs CS TO 433 +INT if 


425Q IF Eg="S" THEN LET uUstS TO 
BISSTRS (URL (USS TO G6))24INT (FA 


H+2@QI3 

4255 PRINT “MAGIC: “;Us(a TO 2)3 
“STRENGTH: “7Ugs (3 TO 4). "WISbOs 
: “ids(S TO 63;" GOLD _$"; HONEY 


a26@ LET MONEY = =NONEY-AM: IF MONE 

¥Y392 THEN GO Ta 4196 

$2708 cls PRINT “Nott For the Ui 
timate Test...‘*: GO SUB PAUSE PS) 
42375 INPUT FLASH 3; BRIGHT nee ae 

PER 2: "Press ENTER when you’ i 
rave enough ta Fight 7 ee “eo 
SUB PAUSE: CLS ie 

4280 PRINT ‘“Farst;: 

$2960 LET NH=VAL ee Fae "bra: LE 

T NG=VUAL (NS(6,2 TO 3)} 


49008 PRINT TAB 3; “You: ";MH;" & 
wuaerdiean: “3 HG 


434@ LET DIFF=ABS (MH-MG} 

naee PRINT “The difference is “; 

4330 IF MH>MG THEN PRINT “in you 

fr favour™ 

4340 IF MG3NH THEN PRINT “and th 

@® Guardian has the edge” 

4350 GO SUB PAUSE: LET CoST=INT 

fRNDs ( (MHFNG? +233 421 

S43560Q PRINT ‘“This raund carries 

@ penatty", “ar “; COST; attribui 

2 Points": GA SUB PAUSE 

F@ LET RESULT=INT (RNDsDPIFF} +2 

G@ LET RESHUSAREBS (RESULT —-NH3} 

90 LET RESGAS=ABS tRESULT—-NG) 

@@ IF RESHU>RESGA THEN PRINT “ 

rd you win “;CQST; “ magic Pont 

*: LET MHSHHN+COST: LET Js ti TO 

=STRS (MHI: GO TO 4420 

424108 PRINT “And you tase “;CQST; 
MEGic Paints": LET MH=NH-CQST: 

LET UJ (2 TO 23 s"8@": IF MH38 TH 

EN LET US (1 TO 323 =STRS (NH) 

4480 INPUT FLASH 34; PRPER 7; INK 


Reps eon 
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2, “Press ENTER when you’re read 
oe ta cantinue this c¢Cruciat 

Se SS. oy cme GO SUB PAUSE 
4485 PRINT “Now Strength: " 
aa9@ LET MH= iy al (YS(S TO 433: LE 
YT NMGSUAL (NS (6, TQ 533 
4500 | PRINT oe 3; Feevesy (Ri eee ee kes a] eae & 


i519 LET DIFF SABS {(NH-NG) 

Seee PRINT “The difference is “; 

ae 

2538 IF ne THEN PRINT "and ua 

(ie ceca ee Sars 

i540 ITF MNGsHH THEN PRINT “with +f 

Re Guardian in Frant* 

ASSER GSA SUB PRLSE- LET cosT={INT 
a 


igee  BRINT 7 “This round carries 
Penalty". "of “; COST; attribut 
2 PoinAtSs": GO SUB PAUSE = 
45708 LET RESULT=INT (RNDSDIFFI+2 
8568 LET RESHU=S=ABS {(RESULT-NH} 
43598 LET RESGA=ABS (RESULT -NG} 
41500 IF RESHUsRESGA THEN PRINT “* 
And yuou win “; COST,“ strength pe 
ants”: LET MH=MHHCOST: LET US$ (a 
TO 4) =STRS (MHI: GO TO 466a 

4610 PRINT “And you tase “;CasT; 
5 Strength Points": LET USta Ta 
23 ="68": IF MH>8@ THEN LET MH=NH- 
COST: LET Us (3 Ta 43 =S5TRS {NH} 
4078 LET RESULT=INT (RNDSDIFF} +421 
4650 INPUT FLASH 43; SRIGHT 3; FR 
PER 32; INK 7; "Now Far the Fineat 
tChattenae Press wee INVERSE 2 
> “ENTERS; INVERSE @8;“ when vou a 
are",AG: GO SUB PAUSE: CLS 

4665" PRINT *“Now Wisdam: * 

4690 LET MH=URL (U$(5 TO 633: LE 
T MNG=VAL (MSi6,.6 TO Fi} 

& 


GYGGQ PRINT TAB B; “Yeu: “ZMH 
Uardisn: “3HuHG 

474@ LET DIFFSABS (MH-NG) 

&4720@ PRINT “The difference is “3 
BIE - 

4730 IF MHoHG THEN PRINT “and us 
uvre ahead" 

27¢@ EFF MGsHH THEN PRINT “and th 
@ Guardian tleads" 

47508 60 SUB PARUSE: LET QST =INT 
PRND* (HH4+NGI 3 413 

a760Q PRINT “"“This round carries 
82 penatty"’, "ar “; COST; attri bui 
2 Points”: GO SUB PAUSE 

4770 LET RESULT=INT (tRNOSsDITFFI +1 
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4780 LET RESHU=ABS (RESULT -NH) 

473@0Q LET RESGA=RBS (RESULT -MG)} 
$300 IF RESHUSRESGA THEN PRINT 

ANd vou win “; COST; wisdom Poin 
is": LEY MH=HMHFCOST: LET UStS TR 
BISSTRS (MH}: GO Ta 482ea 

4630 FPRINT “Ano yau tase “;CcasrT; 
“ wisdem paints’: LET MH=MH-COST 
>: LET UYSisS TO Gi="40": IF MH TT 

HEN LET JSt5S TO G&G} =STR$ (HH 

&BSOQ LET A=VAL (U$t(1 TO 32)? 

4560 LET B=UARL (US (3B TO 433} 

4870Q LET C=VUAL t(USt(S TQ 63) 

2880Q GO SUB PAUSE 

2390 PRINT ‘“"At the end af the ¢ 
ruciai", "battle you have: 

4900 FRINT TAB 3; "MAGIC: “";R 

43510 PRINT TAB 3; "STRENGTH: “;8 

2OQ20@Q PRINT TAB 3; "WISBQAN: ";C 

2930 IF A+B+4+C3>9 THEN PRINT * FLA 

BH 3; BRIGHT 4; PAPER 7; INK 2;" 

Bnd youvrve madé it, O here aF",” 


these dark and dangeraus"™, “times 
» ZT dtth thee "; INVERSE ape Ste ipa: 
INVERSE @3;° “;N: GO SUB PAUSE. 
STOP 


$9408 PRINT “3 

Bu needed™,"3 

etal ta’,"’esc 
the"."The Guardian" ; 

23058 SRINT "-'Vou Fought VYValiantt 

Ww. but maw’, “will be cansumed by 
The". "Guardiansses ss” 

&2268@ 6a Sus PAUSE: STQP 

4S7OQ REM *+FEXE¥FXXXXESF ES 

S@@QQ REN ACTION SUBROUTINE 

S8@Q5 LET BP=4a: IF Bitz, 23 ="A" TRE 
Solede Cee aek 

S830 PRINT “"What da yau want ta 
30 Now?” 

SBS INPUT =: 


Q@ at Gs BLL aver. Y 
t Least 1G points +£ 


IF Z$="Q" THEN ST 


oF 

SQ20 IF =e="" THEN CLS LET 235 
SQ@22 IF Db=4 AND Teryy 4." FHEN 
SEG =e es eo) 

SO2ES IF FS f2.="F" THEN GO Ta Sis 
a 

sase TF 2$="N" AND BStsZ TO 2ys 
"OQ" THEN PRINT . "NO Bxit« SG Gr 
& 5018 


SO¢AQ IF FHa"S" AND BSts,3 
"@O" THEN PRINT “'THERE 3 NO 
R THAT wary": GO TO 5eie 

RGSQ IF 2$="E" AND BStzZ,S TO 


a 
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“@e@" THEN PRINT “THAT IS NOT Fa 
SIBLE“: Go To Baia 

SOGG IF SH="W" AND Betz. ? TO 8) = 
"OE" THEN PRINT “You CAN’T WALK 


THROUGH WALLS": GQ TO 58169 

SQ7‘O IF 2FHe="'N" THEN LET 2=VUARL tb 

$fS,2 FTO 233: RETURN 

SOaSQ TF 25="5" THEN LET 2=UARL (6b 
SBiZ.3S Ta 433 RETURN 

BOSH TF S5="E" THEN LET 3S=VAL (5 
SiS.5 Ta 633: RETURN 

S288 FF SH$="W" THEN LET F=URL ft 
S$isz,7 TO 833: RETURN 

SLL IF 2e(23}<2"F" THEN RETURN 
S438 IF Bsist,@i="8" THEN PRINT * 

Frere if Mathing to Fiaght agains 
tt“: Go To Bein 

SBAde TF FPaH"FL" THEN LET Ba=INT i: 

ANDs2) 

S250 IF D=1 THEN PRINT "Which di 
retction?’: GO TQ 5@415 

Si6Q@ IF B=@ THEN PRINT “Neal? Yau 
MUST Stand and Fight" 

S1FO PRINT “""“Which characteris: 
RC HILL’, “you Faght with?” 

SBIS8 LET G=aUAL (6St=,914 

S290 INPUT 2%: IF SRiso"M' AND Fz 
a AND 2H¢o"N' THEN GO TO 5313 

S2O0e IF 2S="H" THEN LET HUN=S5L 
Uy Ae 233: LET NONSVAL (INSia, 
— wai 

S210 IF 2$="5S" THEN LET HUN=UAL 
TUPIS TO 4233: LET MON=UAL (MS {(. 
BU WR ay tS h5) 

Beee IF 2H$=a"WN" THEN LEFT HusN= ae 
ae ie, 633: LET NON=S=UABL (NS (8 

ard a a 

SE3Q@ LET DIFF=ABS fHUM-NON) 

S2aQ PRINT ., FLASH 4; BRIGHT 1; 
INK 2; BALE FF; “The difference 


2S eS ar: 

S2se IF Hun >MON THEN PRINT FLASH 
1; BRIGHT 14; PAPER 32; INK 7; "an 
yau have the advantage" 

268 IF HUN ¢MON THEN PRINT FLASH 

1; BRIGHT 32; PRPER 2; INK Fj "an 

d he has the advantage” 

S2E7aQ LET COST=INT (RNP#6)} +12 

B2GOQ PRINT °° FLASH 1; BRIGHT i: 
PAPER 33 INK @; "This Fight carr 

32s 2° "Denalty ar “|; INVERSE 4; 

Cost: INUERSE O; " Points’, 

S2eaea@ LET RESULT =INT (RND&HIFF) $2 

SBeGG@ GO SUB PAUSE 

SBBiG LET RESHU=S=ABS (t(RESULT—-HUN} 
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BSG2Q LET RESNOQ=AGB5 (RESULT -NON) © 
BG3@ IF RESHU<RESNO THEN GO TO 5 
3ae@ 

SG89 PRINT °° FLASH 1; SSPER 
INK 6; "You have been beaten! 


oy 


Sasa TF Z2$="M" THEN LET MS(2,2 = 7T 
O BI=sSTRS (VRL (NF(O,2 TO 3))tes 
CcosT) IF URL fsa TO By) >=COST 
THEN LET Us (i TO S:=sS5TRS (UAL £ 
YHCL TQ 233 -CcosT) 
BSGEGQ IF 249="5" AND VAL fUgs (3 TO 
4&3) >SCOS8T THEN LET US(3 TO 43 =AaT 
Re (URL (Sta TO 433 -CosT) 
ssa ZF 2$=s"W" THEN LET NS(a,6 7 
O YSSTRS (VAL IMS, TO YII+INT 
icOST “233: IF VAL TOs (5 TO 33> 
=COST THEN LET U$(5 Ta 6) sS7TRS i 


VURAL (US(5 TO 6)) -Ca5ST} 
2ane GQ TQ S440 
39@ REM HUMAN UICTORY 
Saa0 PRINT 7° FLASH 1; BRIGHT i; 
INK &; PAPER 2; “You have defresi 
Sige hagcl 3 
Sa4iQ@ IF 28="M" THEN LET U8 f1 TO 
SISSTRS (VAL {tUgGt(1 TO 23) 4+2*CO0ST 
}: EF URL (N$te,2 TO Gi33=COST FT 
HEN LET NS(O,2 TO SI=STRE (LL i 
HEeiG,2S TO 333 -CosT} 
Sa20 TF 25="5" THEN LET NS$ita,a T 
eee Oe (VAL (NS (@,¢ TO 533 -Cca 


Sé30 FTF 259="U" THEN LET US$ 15 TR 
Si Ssrre TVURL CUS (E TO BIY+INT (tf 
QST42)3: IF URL INsS(O,6 TO Fi} s= 
CosT THEN Ee) ae & To FIsSETRE 


TVAL theta, TQ F733 -CaQsT: 

S440 CO sub. PAUSE 

S458 PRINT "AFter that Fight. ya 
ur“, ”"attrabtutes are:” 
S4¢68@ PRINT TAB 3; "NAGITOC: *;U8t32 T 


S472 eas TAB 3; "STRENGTH: "; ust 
7 a 
Sa60 PRINT TAB 3; "WISBON: "; USS 


= 
S49@ PRINT ““ANd these OF the “; 


SSi@ IF Q=2 THEN PRINT “Fearbrin 
S520 IF @®=2 THEN PRINT “Soautlthre 
SSG@ IF @=4 THEN PRINT "Kneecrus 
S540 TF O=5 THEN PRINT "“HWotvlaing 
S55@ PRINT “are:" 
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Spee eee lly, TRB OO; "MAGIC: "|JMSTA 
= oS) 

SS7Q PRINT TAB 3; "STRENGTH: "JM 
iQ,4 TO 53 

SS0Q PRINT TRB 3; “WISDOM: "J MSI 


S590 G5 SUB PRUSE 


S600 PRINT "Press ENTER tea canti 
nue’ 

SE20Q INPUT Ts: GO SUB PAUSE: CLS 
Sea208 LET KReHo+INT (RND3sAi 

SGQQQ 2F K=2 THEN GO TO S620 

BSG40Q LET BSitkK, 9) =BS(zZ,9) 

SSeS0Q LET BYiz,2)3 ="e" 

S560Q iF RND>.S THEN RETURN 

FeOaQ REM CONTENTS 

Faas IF BR(IS,93 <3°A8" THEN LET M= 


: RETURN : REM DOES NOT ALLOY 
CONTENTS ~ 


IF MONSTER TO BE 
FOUGHT 


FBLA PRINT : GO SUB YeRBR+10Rs INT 
(RND#S+12} 

F@20 GO SUB PAUSE 

FEeSQ RETURN 

FAi@A LET CHEST=CHEST+1: IF CHEST 

=SB THEN RETURN 


110 PRINT “In Frant of you is 3 
Chest". "Labet\led with a targe = 
* > CHEST 

Tee aa "“"Balil you open it 
ar et 


FiSG CO SUB 7eea8 
IF = 


Fisa IF §="N' THEN RETURN 
Fi6G LET J=INT (RND#FS3: GO SUB F 
RUSE 
Fira TF J=@ THEN LET CASH=18Q4IN 
J %¢tRNG=s3B@@Q)}: PRINT “It holds Bra 
9an’s gatd", “worth S$"; CASH". 
is Say MONEY =MONEY +CASH: RETURN 
Fis@ IF dJd=1 THEN PRINT "FA gekblin 
leseps aut, ", “Stabbing youit: LE 
T LOSS=INT (RND#65)44: IF VAL (us 
iS TOG 433 -L0Q585>=0 THEN LET J {3 
TO 43 =STRF (UAL (UF (aS TG 233 -LoOsS 
S33: RETURN 
FiS@ IF w=2 THEN PRINT "A strana 
f= SMOKE Cames out OF", "Tt, Makin 
G9 you sleepy and’, “SBaPPIng your 
MAGIC Power’: LET LOSS=INT (RNDs 
Sli TF URL fLis'2 TO Bi} -LOSS3= 
@ THEN LET J8 (2 Ta B2i=asSTRE (VAL 
rUS(2 TQ 2323 -LOS5): RETURN 
FSa80H IF POTIQN=1 THEN GO TO 7Fa1Le 
FRIi@Q LET POTION=s1 
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Feeea PRINT “You see a SMALL bot F425 IF 28="N" THEN RETURN 

Le engraved" F430 z= RND:.23 THEN GO Ta 7468 

FEGG PRINT “with curious, teHiste F405 GO SUB PALISE: PRINT *"“A shrF 

ag tetters." 2GRINnG Harpy Flies out", "3and sir 

FedAa PRINT “Witbl vou drink the = AS its teBeth ante", "yeur throati 

atian',."ainside it (CY ar Nis" aad 

FS5Q GO SUB FEAR Fade GO SUB PAUSE 

FREQ TF S$="N“ THEN RETURN ¥#45 PRINT “You grappte with it 

FeFra GO SUB PAUSE and...": GO SUB PAUSE: PRINT “.. 

FEB0 IF RND>.6 THEN PRINT "It cs ~Finatty eS its Bhat Se 

Mtained a Potian to”’,."enhance yvo FaSO IF URL (Us (S TO 43338 THEN 

ur Wisdom": LET J$(S TO 61 =STRS LET Us (3S TO 41 =STARS rUAL migra F 

(VAL {(JUStS TO 6313 SINT (RNDs641) 2 GO d@33 -INT tRNDs64+1)3 

> RETUSN P4555 GO SUB PAUSE: GO TO Fe2ea 

F290 PRINT “It cantainéd 3 Potias FaGQ PRINT “A choir of angelic ¥ 

mF Bhpach”’™, "weakens you, sending ¥y MQices is",“"heard”™: GO SUB PAUSE: 

pa ee ota Ge) Sleep": Go Sus PAUSE: LE PRINT "You are refreshed and he 

7 LOSS=INT iRND*x614¢1: IF VAL (us ated’ 

iS TO 4133 «LOSS THEN RETURN F48OQ LET USt(S TO 4d) =STRS «VAL {fu 

FEES LET YS (SB TO 4) =STRS (UAL tT. StS TO 413) 4INT (RND2s64+1)) 

BtS TO 4))-L055): RETURN FA4OQ RETURN 

F3@aQ IF SCROLL=1 THEN RETURN F5aQ CGO TO Fie 

F31L@ LET SCROLL=1 FSE8OQ LET S$=INKEY § 

¥YS2eQ PRINT “You see a Papyrus se FSL@Q FEF SH<e"N" AND Zssavy" THEN 

FOeLl.", "Do you wish to read it 7: GO To F6eaea 

Yoar NI?" F615 PRINT 

POSS GO SUB YEOQOQ: IF 2S="N" THEN FG2O0 BEEP .5,1: BEEP .S,2: BEEP 
RETUBR -S,-2: RETURN 

FUSE IF RND;:.35 THEN PRINT "You ¢ F6S3@ REM FXEFEEXEKFEXEE 

SAMNot understand", "the language. SOGeaQa REM ROON CONTENTS 

“:; GO SUB PAUSE: RETURN SGIA TF Z=1 THEN PRINT “You are 

F33BS PRINT “Ft centains 8 Magic Si the entrance ta an“,"anctcient, 

SpPet_t. Bo™,”"you want toa read it Farbidding-tooking", "castle. Ya 

TY ar No?" Woare standing an", “the marth s: 

F340 GO SUB YEOQR: GO SUB PAUSE: de of the castte,”", "and aS you 

IF Z2$="N" THEN RETURN SOR south", “towards the crumblin 

FSS@ TF RNDO>.3S THEN PRINT FLASH Q°,"Structure, you natice the,” 

a: BRIGHT 1; INK ¥; PRPER 2; "It Snirance Portal is apen”’,”"and unr 

Was a beneficent spett": Ga SUB guarded” 

PRUSE: LET J3S8(1 TO 2)1=SSTRS (URL Be2a IF 7=2 THEN PRINT “You are 

TUG 1 TO SlIFINT (RNOs6i123: RET In the entrance hatlt,", “whith is 

URN AUNG With rich", “Fabrics. Boors 

¥O360Q PRINT PAPER 2; INK F; FLASH iead ta the"., “east and the sout 
; BRIGHT 14;"“ It was an evil $s eats ene an open Portal 

Pebtteitinv.: GO SUB PAUSE: IF UAi ! : 

TUS (S TO 4)3))5>5 THEN LET Uf (2a TO SOQS8 GF £50 THEN PRINT “This is 

4) =STRG (VAL (G83 TO 43)-INT ik anty & store room.", "There is 3 

NDs64+2)): RETURN single Be atc back", "the way YoU 

F400 IF SAFE=1 THE Came in,”™.“ta 2 west” 

FaeOQS LET SAFE=1 ee Tete Bade IF S=4 THEN PRINT “This sms 

F441 PRINT “On the #all is 2 sas Li room, which’, "Features an arn 

ii, aided". “safe, and in fFrant ate sculpture", "“of the moon gadd 

aie, este a fey Beet Seer a er ts ne Poe 

Sa PR FG ~ -7 ais u Cenc 
Rags Bo Oe ate Poo are resence Chamber. Doors Lead", "ts 

F420 GO SUB 76008 
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the south, the west and","ta th One Leaves", "ta the sauth" 
= east" Si1@ IF £=132 THEN PRINT "This mu 
SaQaSQ TF F=S THEN PRINT “The Hati St be the Vestibute","af Sighs, 
ar Pilots, a","waaden-panettled F & dank and clammy", “roam where 4 
Gon". redalent with whispers and egend says the”, “siardian af the 
“"J"rumours, With exits ta the £3 ~pback™, “Lagoon can sametimes be 
stv."end to the seauth From which 2 heard at Night. There is 3," 
“ 'COMneES the smell af SuULPhUr 2h door ta the naorth";: IF Bg(211,3 
3°," #e€ird chanting" TO €)="435" THEN PRIN *" anda’, “om 
SBSGEa ITF S=6 THEN PRINT “Yau have # t@ the south" 
entered the Wirard’s"., "Ger, wit S220Q PRINT IF 2=12> THEN Ga Ta 
Ro @ tCStiidran bubbling”, “over 3 F a40G0 
P28 With green Filawes™,."in the S @125 IF 2is1 THEN IF BS#tz,93="a" 
Outh west carner.“’, “This room re AND RND>.SS THEN LET BS{(2,9) =<ST 
&#kKS OF burning’, "SuLlLPhuUr, and th RS CINT tRNDs5)); REN DELETE 
® echo of", ,"BNcIanNt spells. You FOR LESS MONSTERS 
can téeave,“ta the nmorth, the 32 S130 IF B$(2,93 ¢3"“6" THEN LET @Ge= 
uth”’,."aor ta the east” VAL (B¢(2,9)3: GO SUB Zeca 
SB@PAa IF F=F THEN PRINT “You fina S348 RETURN 
yourself in a place“, “whith ses SISO REM FF SFFHXREE EERE 
RS Quiet and peace ful.“,"“This is S888 REM INITIALISE 
the castte’s Picture", "Gattlery. S810 RANDOMIZE 
@ith @ Large painting", ’oar the SO20 LET 2=1 
Legendary Guardian", ”"oF the Blac 9@30Q LET PAUSE=9908 
x Lagean toa the™“,“tefFt of the Ws S@Q408 LET ROUN=BRae 
ndaw ain the", “east watl. Through 9858 LET ACTION=5a00 
the window", "you can see the mi SG6Q LET MONEY =a 
Llioned”,"windaws af the Great fi BQVO LET CHEST=e 
a3ii,", “across the Contoured Gard SaSeQ LET POTION=o 
en.*,"Exits From the Galtery are SOQ LET SCROLL =a 
= "to the north and tGo the west Sise LET SAFE=a 
BSee IF 2=S THEN PRINT “This 35 333@ OIN eee 
Tne BOOST MAGNIFicent’,"reaom in t B1l20 CIN M$(G,7): DIN Jsté) 
he castle, the", "Great Hati. wit Sige POKE 546425 .45 POKE 23658,33 
h & Massive”, "hammerbeam roar. ‘ S3id@Q@ INPUT “What iS Your First nm 
gu can“, “leave it by Ae Soe Se “INS 
doors", "to the narth, or ft hos 915@ PAPER 1: INK FP: Ye 
e tov, "the east behind whith you Ls BORDER 1: ¢ 
can’,°hear music Playing. r SiGS FRINT “Hi there ear : 
ghv, ‘the windows in the west wal T pisces Be Ca ane ;NS$: PRIN 
iv, "you can see the Contoured,” SS2@Q REM FILL ROONS 
Gardén, and beyond that through” S338 FOR T=1 Ta 12 
-"windows ef a raan hung With", SR4@Q READ TS 
Hanyu Pictures” SSsaQ LET eer =T Ss 
Seoe IF F=9 eS bale i roeeeo 2 See NEXT 
FoB@B String quartet’, “Fi he os SQ65S LET BS tA@+INT f¢ ¥#2223,3 
aon, the", musicians” chamber. Yo A ays"aa 5 NES ore ee 
u fan’ ,’leave bu doers to the we S378 REM PISTRIBUTE AND 
el 8 ae Coe ae geaG CREATE MONSTERS 
a zx “Yau are go LET M$ (2,113 =STR = 
now in the Sanctuary ar", "Siten S341) ele: AINE NES. 
ce, 2a eteption.", “The Troop. ee Seen FOR A=2 TO S 
be a decePtion.",” e€ raom is 2 S408 CET MSA, 1) =ST = 
@P and cold. An", "exit Leaves th G3 423 ia le pe a es 
= room ta the", “RHarth";: IF BSisa S44¢4@Q LET BRIVAL (NS(A,1)),38) =Met 
8,3 TO 43="12" THEN PRINT ° and R,i) 
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ee a US eee AES Ae windows, but you cannot see other rooms across it, so it can’t be 
= 


Qg7A FOR B=1 Ta 6 used So easily to help you get your bearings. 


S450 LET MSTA, S TO 3) sSTRS (INT First, change the DATA statements as follows: 

ahaa fee ae. = pe ae 

SHQG LE NS(AL.4 TO 5) =5 Sf aS7@Q CATA BOeeHa2=oaon" 

IRND*3223 +381 ‘ a S580 CATA “adh Raaeaa” 

Zee a cdots TQ YisSTRS (INT aaa poe eee anes. 

a SHU 22 + : S680 CAT “HOPS Asaaaa" 

SS108 NEXT A S610 DATA “GOGRGR0d 0a" 

BS20 REN HUNAN CHARACTERISTICS S628 PATA "“GSEn1R0900" 

SS30 LET US(2 TO 21 =STRe {INT {R Sa38 CATA “"BSbeasoaaaa" 

3Sa0 LES era TQ 43 =STRS CINT tR nee Pag -pebaneaSen” 

= 2 } =5 tf S650 A “Ee@hbSesSa800" 

ND*®2123 +383 " 3668 OATR “Ba lPAAAEAe" 

QSES@ LET US (5 TO 8) =STRS (INT tk SEAPFE RATA "ABGAe12LP AAA" 

ed eee ee S650 DATA "AAaeeaanaen" 

3578 CATA “eeaseeceaa" Now you need to change parts of the room description. To make 
S580 CATA “SS aRRB4Aa8" ; j ! i A 

350a CATA “saananeezaa” it easy to modify, I've added the new words in capital letters. Note 
B6GQ DATA "“Seerezeseaa” that you do not need to change anything in line 8030. 

S610 CATA "Gae6bG4 20080" sar = 

S62a DATA “asieeracaa” See Se Sass ee ae ee 

S63Q CATA "a4aaeeancae” = Hoe INT rau are 
Sea0 PATA "“e2>eBRaneaa” @t the entrance ta an“, ”"ancient, 
SASQ CATA "@Alil@araaa” Forbidding-tooking", "Castle. Yo 
S660 PATA “esaDmaaaane” GU are Standing oe “the See a 
asso BATA “Bne@anaaeee” Ok EAST", “towards” the Sern ts ns” 
S808 REM PAUSE ROUTINE 2 Structure, you notice the". "en 
S908 POKE 23692,-1: IF RND>.5 TH PeeuGe POttes 25057607 and UReY 
EN GO To 99s5e@ Ba: = 5 " 

e BSO28 IF £=2 THEN PRINT You are 
aoe5 Eee T=RND#1@ TO RNDs3G+10 5 in the entrance halls", witha ch ree 
= = ung wi rich’, “fabrics. coors 
Sees oes igad_to the", "NORTH and the sou 
Sasa PRINT ih": REM DELETE REST OF ORIGINAL 
SSaqQ RETURN 6550 IF Z=3 THEN PRINT “This is 
S60 IF RND?.7 THEN BORDER RND#7 oniy 3 store room,", "There is 3 
aara NEXT I” Singte exit, back", "the wey you 
aase BORDER 1 came in,", "ta the west” 
asaa Go To 9930@ Bada IF Zia THEN PRINT “This sms 
5 = Li room, which", “Features an arn 

ate sculpture", “af the moon goad 

: ; é S55 On |", “Pedestat in the north 

Now that you've survived (or otherwise) in CASTLE DREAD Page. 6 CONE Soe Ce eae fees 
Mark I, you may want to save itand make the following changes to é a See th ad Panes ‘ EnST and", "THE tl 
produce Mark II which uses a more complicated map. Modify the XHDOWU OVERLOCOKS THE", "CONTOURED 
following lines and you're ready to start tackling the whole thing Soo onae F=5 THEN PRINT "The Halt 
again. Unfortunately for conservationists, the Contoured Garden _OF Plots, a“,"“wooden-panetted 
(which was more like an interior courtyard in the first castle) has vom", "redolent with whispers and 


; 3 ; 2 fUMOUFrS, Wath exits tO the WE 
had to be moved outside. At least, it can still be seen out of the ST","and to the south fram which 
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, ‘comes tee ane S Loar SE Mba There is no reason at all why you cannot continue to work with 
‘a. "3S weir chanting. ; . 
oe Son aed NORTH WALL OVERLOOKS" ; this program, developing as many versions of CASTLE DREAD as 
“FHE CONTOURED GARDEN* A you like. You can stick with the same room names and the same 
SPP es Fedtne Wisara se” ee . pee number of rooms (12), working out your own map and relevant 
h a Cauldron bubbling", "“aver a F DATA and PRINT statements, then throwing away the map and 
3f@ With green Flames","in the s 4 A A : 
auth west corner.", "Th! fs room re trying to forget its details as you entera castle of your own creating. 
@kKS Of bUrning", “ed Lphur { ang th You may prefer to swap castles with friends and attempt to map out 
Bf echo of", “ancient Sspetls. You realities they have encoded in their own variations of 
can leave"; "ta the nerth, the WE ne y ccs Few MONEE ee Ly 
ST" ,"ar ta the east" ry program. 
Sarre SeUF in a Places "whe ch eke Although you need to produce a world that is mappable (for 
be gue vane men ce ay re ‘Tha s is without this you may as well just be pressing ENTER and 
the cas x le’s Picture", "Ga ut me : generating PRINT statements), there is no reason why you cannot 
MOASRGE Go SCanaLan eee rf? aps 5 fis 5 make your room inter-connections as fiendish as you can manage 
3 passer ta A te te H a F ibe nae) in two dimensions. It is also relatively simple to add more 
OR ifn [eek ye? wa a “Exits or 
fom Gke eal iery are” ‘«t4 The Pp monsters, whether they are to crowd out the original castle, or 
Gerth and te the EAST” aaa more sparsely populate some new castle of your own devising. 
BSA IF F=8B THEN PRINT " ais as ' ; p : 
the mOSt magnificent’ ,"room ain t Once you're confident with this you can double the number of 
Re castle, the“,"Great Hall. wait rooms, increasing the BS array to take account of this and—of 
ho a massive", "hammerbeam raaf. ¥ rr : : 
ou can.” ers ie BU the dou Bie course—adding to the DATA statements which are fed into the 
doors", "ta the SQUTH, ofr by thas elements of BS, and the PRINT statements which link in with each 
& tov, “the NORTH FROM WHERE you room. You should not, however, tackle this until you're fully 
tan"."“hear music Pplaying.": REM ; ie ae 
BELETE REFERENCE To GAREEN conversant with both my original map and the way it is encoded, 
sea ae es varte ae ache . ape 2 and you've worked on a few variations of CASTLE DREAD with 12 
3s u i ra Eee 
Oe Wee eae chamber. vo rooms. Monsters are held within the M$ array. 
u_tan ae leave by doors to the ES Perhaps the easiest changes to make to the original program are 
= as pe Cee oes ee as, s to the contents of the chest, the effect of drinking the magic potion 
Eee ee NEXT and the result of reading, or attempting to read, the ‘papyrus scroll’. 
Aa = Hi , 
Bi@® IF 2410 THEN PRINT “You are At the moment the program will not present the scroll, the ‘small, 
mow an the Sanctuary ar’, "Sitlen gilded safe’ or the potion more than once in a game, and only four 
Ce, 3S FOOM Whose", 'Calimness may f F ; 
Be’a deceptaan.’,*The room is da : chests will be discovered in any particular castle layout. However, 
Mr and cold. An","eNit leaves th while the program will not produce more than four chests, there is 
ce Foon | ao Soc ast and one les no mechanism in the program’s present form for ensuring that the 
Bill IF Feii THEN PRINT “This mu same things don’t leap out of different chests every time you open 
Si be the Vestibute","aFr Sighs. them. (Once you've been nipped on the throat by four harpies, 
@ dank and clammy", “Ffoom where t : : : : 
egend says the",'"GUardian of the each of which will reduce your STRENGTH attribute, you may wish 
ASS HELS a “Lagoon. can sometimes be there was some way of stopping them from breeding in every 
“,. "heard at might. There is a,” Chemin fies 
daar ta the narth and *,"ane ta t er IAM eer ue i 
he ERST" You may have felt that to some extent, it is a pity to have a 


computer with the graphics capabilities of the Spectrum and have 
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all of the output in written form, even if it is highlighted with 
FLASH, INVERSE and BRIGHT. There is no doubt that some 
players prefer programs which draw up complete pictures of each 
scene. However, the listing is already very long and | believe that if 
it was much longer few would face typing it in. Programs which 
create detailed pictures tend to be a maze of DRAW and PLOT 
statements and you need a great number of lines to produce a 
worthwhile picture, far more than | feel is warranted. By all means 
dress up the program to your heart’s content once you have it 
running. Even if you don't want to add new rooms, monsters or 
contents, you may still want to enhance it by adding pictures. I'd be 
very interested in seeing graphic-enhanced, or any other variations 
of this program which you've developed. Please send them to me 
care of the publisher. Who knows, we may be able to include the 
best ones in subsequent editions of the book. 

Even if you don’t want to go so far as to include vast blocks of 
code which draw complete rooms, you may wish to give rooms 
specific colours, and you may want particular monster descriptions 
to be always printed in the same colour combinations, perhaps 
with a distinctive ‘signature tune’. Notice the lines from 2010 to 
2050. You can easily insert the colour information and the music for 
the signature tune in these lines, following ‘IF OQ = THEN’. Another 
alternative to full detailed graphics of each room is to user-define a 
block of four graphic characters for each of the five monsters and 
use these to produce a characteristic border when the particular 
monster is mentioned. You could, in fact, fill the whole screen with 
multiples of this group of defined graphics before you.clear the 
screen to the relevant print statement and/or signature tune. 


Other scenarios 

Even if you have not totally worked out the map used in CASTLE 
DREAD but you'd like to make the adventure program more your 
own, there are significant changes you can make. Assuming you 
keep the exits and entrances in the same places, there is no reason 
why you can’t call the rooms anything you like. You could, for 
example, set the whole adventure on board an abandoned space 
ship, left in a slowly decaying orbit out beyond the asteroid belt by 
an unknown alien race. Instead of (or as well as) ‘monsters’, you 
could have dangerous alien artifacts, like semi-sentient androids 
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whose job is to patrol the ship, even though the race they are 
guarding has long since departed. The object of your search could 
be the power drive, which you would expect to be an example of a 
radically advanced technology. Once you find the room (the one 
which is the Black Lagoon in Castle Dread), you find a massive, 
Spectrum-controlled defence system which must be defeated. 

Instead of MAGIC, STRENGTH and WISDOM, your attributes 
could be more down to earth (if you'll excuse the phrase, out here 
beyond the Belt), including such things as oxygen, food rations and 
shots left in your laser gun. You can change not only the nature of 
the attributes with which you tackle the adventure, but add more 
(suchas charisma, ability and stamina). The player could be allowed 
to, say, allot 98 points as he or she wishes among the attributes at 
the start of the game, rather than have them determined by a roll of 
dice (or the random number generator which is pretty much the 
same thing). 

Another way to allot starting attributes is to allow your player to 
choose the type of person he or she will be (cleric, magician, ogre, 
fighter, thief, elfling or whatever). Specific ‘clusters’ of attributes 
come with each identity. 

Our original program framework can be used to house a pyramid 
which you are exploring before it is destroyed to make way for a 
new dam on the Nile. You go through various tunnels, exploring 
chambers within the pyramid, until you come to the burial chamber 
(the Black Lagoon in Castle Dread) where you must overcome the 
curse of the dead Pharaoh. 

From these ideas, you can see how easily an adventure 
framework can be elaborated and enhanced so that, eventually, it 
bears little or no resemblance to your starting program. Once 
you've gained some confidence in manipulating encoded realities 
in this way, you will probably be itching to write your own 
programs. You can gain a lot of ideas by looking at commercial 
adventures available for the Spectrum, or for other computers. 
Some of these, perhaps surprisingly, are not based on ‘coherent 
realities’ and depend more on random numbers than on any real 
skill in mapping or memory by the player. 

You may wish to experiment with interweaving different 
programs, adding a 3-D maze at one point, or a reaction test or two 
to see how you fare in combat. 
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Finally, keep in mind that when writing an adventure program it is 
essential to ensure that there is a clear purpose to the game 
(wandering about aimlessly, collecting treasure and killing dragons, 
is worthless and eventually very boring, unless the player is on the 
way to solving some final problem, getting some ultimate treasure 
or escaping from the torture chamber alive). As well as a purpose, 
the activities within the adventure should be related to that final 
purpose. 

In CASTLE DREAD, you try to acquire enough attribute points 
and money (which can be exchanged for attribute points before the 
battle with The Guardian) to handle the final mélée and still have 
ten points in reserve, so each encounter (such as opening a chest, 
for the chance of making money, or tackling a monster which has a 
very low rating in some particular attribute) is seen to be related to 
the main purpose of the game. Of course, there is a great deal of 
fun in decoding the map of an adventure and in just plain wandering 
around in a counterfeit reality, but it makes much more point if the 
player knows why he or she is exploring this most unusual 
environment. 

If you want to learn more about réle-playing games, with the 
intention of using your new ideas in program developments of your 
own, you may find the following three books useful (I was reading 
the first one, in fact, when | thought of the scenario for CASTLE 
DREAD): : 


Fantasy Role Playing Games Holmes, Eric J. (Arms and Armour Press, 1981) 


Dicing With Dragons, an Introduction to Role-Playing Games Livingstone, lan 
(Routledge & Kegan Paul, 1982) 


What is Dungeons and Dragons* — Butterfield, John, and Honigmann, D. (Penguin 
Books Ltd., 1982) (*Dungeons and Dragons is a registered trademark registered in 
the U.K. in the name of T.S.R. Hobbies, Inc., of Wisconsin, U.S.A., who also hold 
American rights to the name). 


JOE CAPITALIST, JNR. (Lemonade Stand) 

You are Joe. Your mission: to run a lemonade stand and make a 
fortune (or at least, not go bankrupt). The program leads you 
through the decisions you need to make, step by step, and makes 
particularly effective use of the Spectrum's colour and high 
resolution graphics to enliven the program as it unfolds. It even 
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features a portrait of you, as Joe, behind the counter of your 
lemonade stand. Don’t be misled by the sample printouts shown 
here; the program's graphics are far more effective than the 
printouts suggest. 

Once the program gets under way, it will be pointed out to you 
that you are now the owner of a drinks stand selling lemonade. 
Each day you'll be told the weather forecast. Hot weather means 
many sales; a dull day suggests that lemonade will not hit the 
number one spot on today’s chart of the Top Ten Beverages. From 
the forecast and from the marketing knowledge you will gradually 
acquire by running the program, you have to decide how many 
glasses of lemonade you will make. You'll be told how much each 
glass costs to make. You must then decide what price you'll put on 
each glass of lemonade. Of course, higher prices will tend to 
depress sales. At the start of the game, your stand will cost you 
50p rent a day. This will become more expensive as time goes on, 
due to inflation. Inflation will also erode your profits, as raw 
materials increase in price. 

The sample run shows the kind of information you'll have to 
work with each day: mild weather, a raw material price of 2p per 
cup of lemonade, rental of 50p, and the fact that your capital stands 
at £20. From this report you decide how many glasses of lemonade 
you will make, and this number of glasses appears. The program 
now draws the drink stand, complete with a number of full glasses 
of lemonade, with a little sign showing the retail price. 

Right before your eyes the cups of lemonade are sold (that is, 
they are emptied). At the end of the day, the shutter rolls down on 
your stand and you are told how well you have done in the program. 
"You sold 20 cups; You took £1; you made 20 cups which cost you 
£0.4; rent cost you 50p; you have profited by £0.1” is the kind of 
report you'll get. 

The DATA statements in lines 15 and 20 represent the empty (e) 
and full (f) glasses respectively. The next DATA statement, line 25, 
contains the weather reports and the numbers which govern the 
effect certain types of weather will have on sales. The INK colour is 
set to black, the screen is set to normal brightness and cleared (line 
45) before lines 50 and 60 define the graphics, reading the 
character in line 50, and POKEing the relevant DATA in line 60. 
After a BEEP in line 70, a function is defined in line 80 which is used 
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in line 840 to determine how many glasses of lemonade are sold 
per day. 

Lines 100 to 160 print out the instructions and after a pause (see 
PAUSE 900 in line 160), the words “Good luck!” appear. Line 170 
produces, with FLASH, the familiar statement ”Press any key to 
begin”. PAUSE 0 holds the display indefinitely until a key is pressed 
(the 2X81 equivalent was PAUSE 4E4 or PAUSE 40000) and the 
screen is cleared. 

The variables are initialized in line 160, using explicit names so 
you know—when tracing through the program—what the various 
lines do. Your starting money (variable name cash) is set at 2000; 
the weather at 4; the lemonade raw materials price at 2; and the 
rent at 50. Lines 200 to 220 choose the weather and line 230 starts 
the report. Line 250 RESTOREs the data pointer to line 25 which 
holds the weather words and related numbers. The numbers 
(given the names from and to) are used in line 840 
which works out how successful you've been on a particular day. 

You are told the state of your finances in line 290 and asked how 
many cups of lemonade you wish to make. If you suggest a 
negative number, line 302 rejects your answer and returns you to 
line 300 to answer again. Line 305 sends the Spectrum scuttling to 
the subroutine from line 9000 which checks to see if you have 
enough money to buy as many cups as you have ordered. If you 
have, the subroutine returns instantly. Line 9010 is reached if 
you've tried to buy more cups than you have, and it points this out 
to you (“you do not have enough money to make that many”) and 
asks for a new figure. This is checked in line 9000 and, if the figure 
entered is acceptable, the RETURN at the end of line 9000 is 
activated. If not, the program ‘falls through’ again to line 9010 and 
the question is asked again. (While we are at this end of the 
program, look at line 9999. This, in fact, is not part of the programas 
such, but was used when the program was being developed. It is 
used whenever the person developing a program decides to havea 
look at the program to date. It resets the BACKGROUND, PAPER 
and INK colours to normal, clears the screen and lists the program. 
The RETURN at the end means the listing can be called from within 
the program as a subroutine if desired. You may find that including 
a line like this at the end of a program may be of help when you are 
developing a complex program.) 
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Line 307, on the return from the checking the money subroutine, 
determines (quite sensibly) that if the number of cups ordered is 
less than one, then the number sold must be zero and the program 
jumps to line 959, leaping over the selling part of the listing. 

If you prove by the number of cups you have ordered that you are 
serious about this business, then the program prints out (line 310) 
the number of glasses of lemonade you have ordered and then 
prints this number of full glasses with the loop in line 320. Line 330 
asks you to enter your selling programme for the day, with line 333 
rejecting prices which are greater than 99 or less than one. After a 
short BEEP (line 335), the selling price is printed and you are asked 
(line 350) to “Press any key to start selling”. There is a BEEP, and 
the program waits (using the PAUSE 9) until you touch another key. 
This touch is acknowledged with another BEEP (at the end of that 
line) and then line 360 clears the screen, turns the brightness on 
and wipes out the contents of the screen with the i loop. 

Now comes the most visually interesting section. This long and 
complicated-looking routine, from lines 370 to 690, creates the first 
picture of part of Joe and his stand, complete with shelves for the 
glasses of lemonade. The next section, using the variable count 
(which is set equal to the variable cups in line 695) prints out the full 
glasses of lemonade. The variable count is decremented by one in 
715 and checked until this equals zero, when the computer knows 
all the cups have been printed. Once this is done and line 
700 has determined that all the cups have been placed on display to 
attract eager customers, the lines from 730 to 830 complete the 
drawing of the lemonade stand. 

Line 840 activates the function defined in line 80, to work out 
how well your day's transactions have gone. The loops from line 
860 replace the full glasses with empty ones on the shelves. If all 
the glasses have been sold, the “SOLD OUT” sign is displayed 
(line 900). After a pause for a couple of seconds at the start of line 
919, the shutter rolls down on the lemonade stand. Another pause 
at the beginning of line 940 and then the computer obligingly prints 
up a sales report for the day. “You sold... cups. Youtook£...” 
and so on. 

The all-important profit (variable name prof) is calculated in line 
1000. Lines 1010 to 1030 use the SGN function to determine 
whether the day was a Success or a disaster in terms of profit. 
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(SGN, sign, returns —1 if the number is negative, +1 if it is positive, 
and @ if the number is zero.) 

Inflation strikes alarmingly in line 1050, increasing your rental by 
up to 10p, 18% of the time. In line 1060 the random number 
generator ensures that around 10% of the time, again, the raw 

| material cost (variable name lemonade) will be increased by one. 
Line 1065 waits for you to press a key to continue. If line 1067 
discovers you have no money left (that is, that cash is less than 
} one) then the program goes to 1500 to terminate gracefully. If 
you're still solvent, you get another crack at the fickle market of 
high finance beverages, with a return to line 200 to face another 
day of gruelling decision-making. 

The mournful message “CLOSED. You are now bankrupt and 
your stand has been sold to pay for losses” appears (lines 1500 and 
1510) and then line 1520 continually calls itself, effectively 
terminating the program without putting report code on the 
screen. You'll need BREAK to get out of this line. 
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YFaday°s Repart 
Weather : MHiied 
Each cup ¢cestsS yau Bp per cup 
Fent: Sp 
YOu Rave ES@ avaitabie 
Cups: YYYYY PLY YrYSrrrrrrr 


Wou sald 28 cups 
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12 PORE 2235889, 1358 
15 PATA “e"',a,BIN LTaBeMABAALA, RIN 
LSSGQG1 A,BIN AIABALAR, RIN ABWlB2 
S8a,SIN aGaleasa, SIN QaWsBaaa, RE 
Fy @iiliiaa 
BQ DATR "FF", W,BIM LTAABRBLA, RIN 
L1TLALIIG BIN BLLPPIBR, BIN Aw 2 
Beo.BIN Soar Vaan, BIN Soalaaasa, BX 
nN Sii111a8 
25 DATA “Stormy ",. 1, Be, “vet's 
BS,4@. "Overcast", Ss ;50, "Mita" 48, 
78, ‘Oarm’,65,128, "Hat* , 2B, 188, 
regatwave ', 2Ra, 2Baa 
45 INK @: BAYSHY 8: CLs 
SG FOR g=3 TR BB: FRESE «3: FoR 
2=8 TO 7 
6a Bee a PORE USR 3343 ,8: NE 


’ 2 
S60 GCEF FN FIP ,Qi= Taf lLBe) -1Bs 
3@8 PRINT PAPER 8," Leite 
ahade Atand pee "YaR OF 
€ the owner or &@ drinks” 
A1Q@ PRINT “Stand Setismg Lemanz 
d@,Each day" “yau weit be taid Ff 


he forecasted” 

128 PRINT “weather and Fram t 
te You wile’ “decide Aaow Bany g 
s3ses ta" 

AS@ PRINT “make. Yau titi aise & 
@® told haw’ “much E€8&cth cep wade 
cests you anda” 

140 PRINT “Fram that yau witi 
@tide the’ "selling price.Rent «a 


mS 


y 
oF 
DF ti 
1] 
ih 
bate 

nd 
11] 


4508 PRINT “casts SBe a day but 
WRULL HecCAMRE "MATE EXPEKHEIVE wat 
ho oainflatian’ 

160 PRINT “sas witt the tiewanade 
7""7"*: RPRUSE S88: PRINT INK 32>” 

‘Good Luck f° 

27@ PRINT FLASH 1, °"Fress any & 
ey toa begin’: PRUSE &8: CLS 

LEQ LET cash=2ae@8a: LET weather= 
4&4: LET Llemanadée=2: LET rent =8e8 
paee LET weather=eanesathersiInNT TARY 

#S- 

fae" IF weather=8 THEN LET weatkr 

era! 

226 IF weather=8 THEN LET wresth 


€ 

530 PRINT PAPER &;° Lem 
anade stand oe 

2&2 PRINT INK ¥; FPRPER 1; °7" 
Taday’s Repart Sy 
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250 RESTORE 25: FOR s=1 TO west 
er: REBD ws. Fram,ta: NEST i 
2B6@ PRINY ““Wesather : “; XNH 3; 


27a PRINT “"“Eaech cep casts yar 
> INK 2) Lemonade; "fF Ber cup’ 


25@ PRINT ““Rent: “; INK J;,rent 
290 PRINT “"“You have "; INK 2; 
“,cTaAshviOB, INK W,° swredissaie” 


EE 


® 


S@OQ BEEP .5,36: INPUT INK 2; “Ho 
MANY CUPS da yor WENT ta “oS 
@ 8°; FLASH 252" eure 

3@2 IF cUPS7& THEN GO FO ase 
Se@5 GQ SUB Sea : Beer .5,5 

SG? IF Cupsi3 THEN LEY satd=e: 


LET pricesi: LEY cups=s@: 80 TOS 
342@ INK &: PRPER &: PRINT °"Ccup 
ae. 


_ 


e 


S20 FOR i=1 TO cups: PRINT "FC: 
NEXT Li: PREER Po RES - 


Sa BEEP 5,38: FSPUT INK 2) ish 
"S$ your sé@lling Brice Far" "ie 
CO is DPSS SEs ae ee hos Ce 

SS IF price 88 OR epriced¢i THEN 


GO TQ 338 

SSS BEEP .1,5 

340 INK &: PRPER F: PRINT ~*~ “Lem 
nade sald at “"JRricée; “Pp ger cup 


SSS PRINT FLASH 2); (INK 3) °'Rres 


anu key tea Start Seiiing’: SEE 
e1,10: PAUSE 8: BEEF 5,5 
SEOQ CLS : BRIGHT 3: FOR 3: =<+385 Ta 
22: PRINT AT sg ,i3" 
> SMES 3 
SPG FOR 3: =8 TO #8 SYEF 16 
SSG PLOT 8,1: DRAM SSS,8 
SSS NEXT 3: 


400 FOR 3: =8@ TOA Bee STEP 4A 

434 PLOT 3,@8: DRAM 55 ,¢43 

420 NEXT i 

4306 PRINT FRPER 8;3AT 8,8; “UE” 3 
Brink Stand’; PREER S;AT &,8;° 


440 FOR i232 TO 38 
4250 PLOT INK FF, 7.3: DORAN INR 7 


;180, 0, -Pivis 
46@ NEXT 3 


472 FOR i= TO 6G: PRINT PAPER 6 


JAF S4+3,-8;° "“; TAS S¢; PRPER 6; 


450 NEST &£ 
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a56 FOR i 
AT es oe 
NEAT 

495 BRIGHT & 

496 INK & 

SEO FOR isilis Ta 


NEXT i 
§ ished FO 2a 
PLOT 2,336: ORAW 28,22 


FOR i:=335 FO 24 STEP -i 
PLOT BRIGHT 8, 288,73: ORS B 
RIGHT @&; 48,32 

S8e@ NEAT 3: 

SO8 FOR : 105 Ta 22 

S6@Q PLOT BRIGHT &,S88,1: BRAN B 
RIGHT B,.=RB, 8 

616 NEXT a 

HIS INVERSE 2 

B29 PLOT PAPER G@)Ge¢,1i6: OAS FP 
APER @)134,8 

6SG@ PLOT PAPER 08,544,332: ORAL P 
APER @; 234¢,8 

GdG INK &: INVERSE 8 

6BS8 PLAT 84,365: ORAM B, PRe 

BEQ@ PLOT 288,38: ORAM 8,80: PAA 
la INVERSE 3; INK 8; FAPER 8,8,4 
67a PLOT B4,18: HRA 2ad,.8 

&S5 INR 3: PLOT Fe, FE: DRAW Fe. 
pa) 

690 PLOT FS,68: CORAN FS,8 

GSS LET caunteceps: GAO SUR Few: 
GO TO Fae 

FOG IF caunts*® THEN SASTuUAN 

78s FOR gsi TO 25 SYEPF |: FoR 


728 BRIGHT 8: PRINT AT i, 833i" 
“; BEEP .1,28 

F725 LET caumt=aceounmt—-i: IF count 
=@ THEN RETURN 

Pee NEXT J: NEXT i: RETURN 

73 PLOT 158,88: OAR 15 ,8,-h9r# 
ova 

748 PLOT 248,48: DORAN 8,27: DRA 
Wo412,.S,.-PIrvt 

750° PLOT 387,483: ORAN B,.|F: GARR 
Wi -12,5,Prr6 

76a PLOT A860 ,43: GRAN &, 28 

Fa PLOT 279,48: ORAM B,2e 

7SQ PLOT 268,88: DORR SB, 25: GR 
Ww &,5: DRAW 8,8: BRAY -3,-26 

730 DRAW -3,8: DRAW B,8: ORAL & 


2 -i6 
SEO PLOT 162,83: ORAM 38,8,P Ive 
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Sieg Sige ces 254,85 ,8: CIRCLE 73 
? 

330 PRINT AT 27,98; INK 8B, PRPER 

G6; “LENQNADE “";prsce;, “Rp” 

B40 LET Sotd=tINnT (ANDs  ta-Fram 
D+F rams (ta-Frawi ri sBeReFn Pprteman 
ade ,price}) 

S45 LEY saotd=InT said: FF seid: 


cups THEN LET satd=cups 

SSQ LET seticzxsaid 

BS6@Q@ FOR i233 TO 38 STEP &: FoR 
i2S TQ i?7 

shae PRINT AT 3,493; "SW": BEEP .3,3 


BBQ LET settc=Hsetitc-2: IF setic 
=@ THEN GO Ta sae 

S90 NEXT J: NEXT :: GQ SUB Fee: 
GQ TO 86e@ 

900 IF soid=cups THEN PRINT INK 
@; PRPER 4;AT 17,97" Soro our 


315 ae i@@: FOR i=i8s TO 43 
92@ BEEP .@2,:-48: PLOT Ve.i: & 


940 PAUSE: Be: BEEF .5,5 
950 CLS : PAPER F: INK 8: PRINT 
PAPER &;" “) BRIGHT 323 °L 
enonade Stand"; BRIGHT 8,” 


S60 PRINT INK F; PRFER 3,7" 
Sates Report 

Q78 PRINT “"Yau saetd “; INK 3235 
ata; cups” 

980 PRINT “Yau toes “; INK 3) 7 
F'; Sso0ld#price.i Bae 

@G@Q PRINT “"“"Yau made Be ar < 
UPS Which’ * "cast yau " INK 32> VE 
“i: cups #¢lemanade -i88 

Bak a “"RENT CeSt yor “Freer 


2 

19@@ LET Prors8atdaprice-cvupsste 
monade-rent 

1818 IF SGN prefer a FSRINT 
"YOU have Made a “;) B; "ioss" 
3 INK @;" @F £" gee ee 

i@2G IF SGN erefro8 FHEN PRINT -* 
You have GnAly brakern even” 

30302 IF SEN eproret THEN PRINT °” 
You have “; INK 4; "prafited"; IN 
K @6;" by E' Prar si Be 

1640 LET cash=casheereaf 

10560 IF RANDs.98 THEN LEY rente=rer 
t+INT (RND#128322 
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1@60@ IF RNO>.8 THEN LET temenade 
=lLemonade+t 
1@®65 BEEP .5,18: PRUSE 8: BEEP . 


1067 IF cashil THEN GO FO owe 
1@?7@ CLS : Ga TO aes 

iS2e CLS PRINT INK $7; FLASH 3; 
a CLOSED 


252@ PRINT °" You Bre BAR banks 
upt and your stand has Seen Soid 
to pay For  yaur tesses.” 


= Le CUPSHLEMEGRHEGE VT HCcash THER 
$0ia TNPUT SNK 2, °°3cGu do Rat hay 
& Eneugh BeHEeY ta BBKE that BBY 
> INK 2, "HOR Bany cves dao yau 

Want ta make “3 FLASH 3,777) cues 
98208 GO TA Seee 

$998 STOP 

9999 rag eel = @: ERee 7: BRISHT 

@: INK @: ORDER Cis) : sePaie < 
RETURN 
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SYNTAX 

This is an ‘intellectual’ game for people who like to play with words. 
The aim of the game is to arrange ten phrases so that they make 
perfect sense. On running the program the computer asks you to 
wait a few moments and in this time it randomly arranges its store 
of verbs, nouns and adjectives into ten sentences that definitely do 
not make sense. It is then up to you to arrange these sentences 
into proper English. 

You will see a cursor in the right-hand side of the screen with the 
number of the phrase it is pointing to. You may move the cursor up 
and down using the keys “5” and “8”. By pressing any of the keys 
"4" to “5", you can highlight words in the particular phrase at 
which the cursor is pointing, that is, if you press “3” then the third 
word in the phrase will be highlighted 

You have a store of ten sentences which are empty at the 
beginning of the game. To enter words into these ‘empty’ sen- 
tences you must highlight a word (as described in the preceding 
paragraph) and press ENTER. The computer will then print up all of 
your sentences with the new word added. The computer will auto- 
matically put your word into the right place in your sentence. On 
pressing ENTER the computer will ask you into which phrase you 
wish to put the word. If you want the word to be entered into 
phrase number 5 then naturally you enter the number 5. 

Eventually you will have a store of ten of your own sentences 
which you must jiggle about until the sentences are coherent. The 
computer will not tell you if you have the right combination of 
words so it is up to you to judge whether your sentences are 
correct. 

Line 20 selects a position within the list of numbers to be given 
by the random number generator and line 30 sends the computer 
to line 1000, where the arrays are DIMensioned and variables 
assigned. Lines 1040 and 1050 find empty elements of the a3 
array, going back to 1040 to select a new one if the first chosen is 
not empty. Line 1060 reads the next string from the DATA 
statements from line 9000. An element of the | array is set equal to 
the length of the word just read, and then this word (b$) is assigned 
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to an element of the a% array (line 107@). 

After x% is set equal to the string “aS” (note, not aS, but "aS"; 
the difference will be clear to you when you look at line 110), line 
111@ directs attention to the subroutine starting at line 200. The 
screen is cleared (line 200) and the interwoven a and b loops print 
out the randomly jumbled phrases, as the sample run indicates. 

The RETURN at line 260 sends the Spectrum back to line 1160 
where variables u, p and n are initialized. These will be used in a 
moment to move the words around the screen. After the 
subroutine from line 100 has printed the cursor (the solid square at 
the end of line 15@), the routine from 1195 accepts, and acts on, 
your wishes regarding moving stuff around. Line 1205 sets i$ equal 
to the key you're pressing ("5” or “8") to move the cursor up or 
down the sentences. Line 1260 accepts your choice of phrase 
within the indicated sentence and after x$ has been set equal to 
“s$" (again, not s§$), line 1300 directs the program back to the 
subroutine from line 200. Lines 134@ and 1350 wait until you are 
not touching a key, before sending action back to 110 where the 
sorting out process continues. 
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A830 OF 287,133,131 

2@35 OTH tf5,323 

2826 FOR a=1 TO &S 

B08 FOR boi TO 14 

TRG LE C=INT fRND#143 43 
3052 EF 25 '2,0,33 032" THEN Go F 
GO 3846 

L@52@ READ bs 

2265 LET iia, f3I sLEN os 
A@yYO LET seele,ci=bs 

1@8@ NEXT bb 


PRINT FLASH 4;AT ule se"; ST 


GO SUR aan 
IF INKEYS$<o"" THEN GO TO 411 


1206 IF INKEYS="" THEN GO TO 4128 
& 


2208S LEY i $=INKEY $ 

1216 PRINT AT u,p;" a 

1245 GO SUB 10969 

1220 BEEP .@1.209 

2230 LET sud (2 $="6°3 ¥ (tt (23 - 53 
Ho" FT "IF (ULMIIF2 

3240 IF COpE ion a CODE $F 
4 THEN LET n=VAL ji 

A252 IF CODE 387345 TREN oO 7TH 3 


A26GQ INPUT “to Which Phrase" g 
41270 IF 4/2 OR G2433 THEN @O TO 4 


1280 LET 291n, Ql =as (Hp lSsi 
1298 LET x$="'ss" 
238208 GO SUB 2ee 
1346 IF INKEYS<is"°° THEN GO TO 43s 


ASSQ@ IF INKEYS="" THEN GO TO 45 


a 

4368ea GO Ta 1ife 

SUB 298 

DATA “bLackK'. “blond, “btue™ 
Rb.“ FUCLOUS™,.“Mad™,“RUdduU™ . 
ev, “pitastarc™ ~Sesii  - ten 
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See OATR barcis', “bFeaxs”,"fhaP 

5°, “Leaks, "S215", "SP2RS". "SEUSS 

“sea ma", “Trung bea’, “Pasa”, “HS 

trhes'* 

SSs5 REN 

SHSGeE CATR "a", ”"aerass the*,"at 7 

Picea CURE eto, ORE ee ad av’."an th 
; oe “ary the, “aor io SS MER Si. “tp t 
& the” 

Sass REM 

Sa¢8 DATA “heath, cat", "“Ftat,™ 

Jame", "MEST", “pack’,“patitician”™ 

. Pand’, “VEseEe", “Web, “ws ne” 

A pate Fish trunmd Leas 

St the Wee 

Ahead Pebble breaks 
: 2 B POLitician 
Aplastic birch wetches 

her peach 

A thuddy uUnNbretia Haiks 63 

Bt the park 

A tait waiter shaus 

an the Gare 

RA blond teacher thoes 

Bcrass the pon 

F bluse butther tess 

2 ‘FLAT 

A ShStLi frabat Sits 

GAta Ss Hind 

A oelsctk d&g parks 

He te the cat 

Aediim#b spider Sims 

the y¥ase 

FR Furious Spectator E61n5 

im the meat 

THE WELL 


A most realistic and probable scenario is developed in this program 
in which you become the hapless prisoner of a wild and demented 
old man who has decided that—for your sins—you should be 
drowned in a well if you fail to demonstrate sufficient mathematical 
prowess. 

Here’s how the program explains it: 


an this game you are the 
the Prisoner of @ MAaNiac 
praresser wha Khas Put you 
EM & bucket and if storie 
Lowering it inte the wetter 
below. 
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He witt ask questicnse. 
WAen ou get thes wreng 
3Oowu Ga iaser ~—- get 


ight emg yau wiit be 
d upwards. 


And this is the scene when the interrogation is under way: 
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i i j 245 
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a eee 
i i 
i i fHeh.,heh!? The right ansever 
i | fis 249 
if ; 
eee 
i 
: 
i i 
H i 
Renee 


The program is fairly straightforward, and allows for a 
considerable degree of elaboration. 

The routine from line 10@@ draws the scene. After it first 
appears, you'll be asked how good you are at maths. If you enter a 
number less than 12, the computer will choose a level of difficulty 
at random. | suggest you start with 15 the first time you run the 
program. Line 710 sets tS equal to either the multiplication (*) or 
addition (+) sign, and the variable a is assigned in line 72@ to a 
number between one and the number you entered as your skill 
level. If tS is a multiplication sign, b is assigned in line 735 to a 
number between 1 and 1@. If tS is an addition, sign, b is chosen 
between zero and 100 times the number you entered as your 
difficulty level. 

Line 740 prints up the question on the screen, substituting a 
small "x" for the "*” if it is a multiplication question (as “x” is : 
usually used as the abbreviation for multiplication). The g loop, 
from 777 to 84@ gives you the opportunity to enter the answer. You 
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may well wish to examine how this routine accepts INKEYS 
characters and converts them into a number greater than one 
character long, so you can use a similar routine in future programs. 
The professor reacts to your answer (lines 850 to 985) and a new 


question is generated. 


You'll see by looking at the routine towards the end of the 
program which prints the scene, that the variable | is the vital one 
which determines how far down the well the bucket is drawn. If 
the bucket comes right to the top, the professor is yanked up on 
the rope for a most delightful finish (and incidentally, the finish 
denies the laws which normally govern the relationship between 
buckets, wells and ropes). If you are lowered to the water, the 
delightful finish is yours to experience. 


S REM The Welt 


aA@® LET i=40 

2G GO SUB [fan 
51a PRINT AT &, 
SPQ PRINT ,.TAB 
® You are the" 


S38 PRINT TARE 6G, 


Fo @ Raniac 


S¢@ PRINT TAR 6, 


has Put you" 


55@ PRINT TAB 6," 


@ 35 Stowly” 


SEQ PRINT TAB 6, 


ta the water” 

S?7a PRINT TAB 6; 
SSQ PRINT ,,TAS 
questions." 


S90 PRINT TAB &; 


hese wrang" 


6@@Q PRINY TAB G&G; 


wer - get" 


6320 PRINT TAB 6. 


wal Witt be” 


620 PRINT TAB &;" 


S30@ GQ SUB 1885 


646 PRINT AT 24i,- 


uta begin." 
550 FPRUSE @ 
BEG GO SUB 159098 
G67T@ PRINT AT 8, 
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BG2 IF d¢42° THEN LET d=INT 12ND 
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TF 2iG@ OR dt+1BPe THEN FRINT 
Se CE hae Goonies rie sie = 27 
SO TO 688 

GO SUB 1naaA 
LET t8=CHRS 


LET S=INT (RND¢dl +3 

TF t$s"2" THEN LET beINT fF 
BOQ TO Fda 

LEY b=INT fANDsd £32 as 

PRINT AT SoG," tia t gs 
ere Ve = = 


t424¢INT (RNDF23 


Gee US = =e Pie Se ES ony 
LET cS8=STRS URL {ATR 24s} fe 
ne 

PRINT aj’ “pugic “pest ope 
peas LTt=@& 

LES ngs t! 

FOR gst TA LEH cs 

FOR t=2 TO it#4i3fh 

LE $32 FT3MEY FS 

ZrFiss="" THEN NEXT t 

ZF CODE 18748 OF COPE 335357 


4 
it) 
fos B4 
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Ft 
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LET i Paw SFG = 


;WSs: BEEP 32,28 
IF INKEYSi¢3;"°"° THEN Go TO 8&3 


NEXT Gg 

PRINT AY 328,6;"Brati? You ¢ 
Rea) 

FOH a= Ta ti-aigs 

BEEP .@1,268 

NEXT 32 


LET ls=t-fl#2@-tt-LEN cba vam 


GQ TD 7H 
PRINT AT 


FiGhi enswer* 


PRINT AT eee Pe i 
FOR os i TO 
PAUS 38 
PRINT AY 3S, tvBr3; “ha?” 
PRUSE 3a 

PRINT AT 3,i.8#5;" i 
NEXT u 

LEY isisd 

GO TO 788 
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Soa aTror 

a@ae cis 

3885 PLOT 9,152 

28136 DRAW @,-15a 

LSE DRAM Aaa, 

238308 DRAW B,ISa 

4@32 PLOT 4,335: DASH 245.0 
3035 PLOT 1,46: DRAY 39,6 

2840 CIRCLE 26,4378,5 

358 PLOT 2aA.a75 

RGBG ORAL L.-48,-(1 1853 

1@65 FRINT AT 4,1“B8s2; OUER 3:°s 
2@70 PLOT 15,178 

280 CRAY @, - 

409m ORS -d,-B 

2280 DRAW 72 

3330 O&RAW -4 

23426 PLOT 23.262-2 

2436 DORA 2,-5 

14440 DRS 4,8 

23150 ORB 2.8 

414660 IF (=@ THEN BEEP 1,22: GO T 
a Beas 

4165 IF t=1553 THEN BEEP 1,22: Go 
To seee ook 
247@ IF t*2@ THEN LET i=@: BEEP 
4,28: GO To apear 

4475 IF i:3232 THEN LEY i=35S: RE 
EP 41,20: GQ Ta 1666 

2180 RETUR: 

2@QGaR@ PRINT AT 4,2; QUER a: °s" 
201@ FOR a=6& TO 16 

2P@2Q PRINT AT 3-1.2:" " 

2BSS PRINT AT 3,2; """ 

PESS BEEP .95.3 

BAG NEXT 2 

2@S5@ FOR s=17 TO 214 _. 

2ESS PRINT AT a,2; "%" 

3056S PRINT AF 3-3.25"° ~* 

Sa? BEEP .2,21-3 

2Q6G NEXT a 

B@9A PRINT AT 23,2; OQVER 1;"_" 
22@0 PRINT AT 16,2; “_" 

Piis eae 

3e66 STG 

GQOOS DATA 24,324,258 ,565,28,55,i182 
.2 

S019 FoR a=a TO 7 

Sa2h REAG bk 

S830 POKE USR “a“ta.b 

S860 NENT 3 

SQS@Q RETURN 
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IMPROVING YOUR PROGRAMS 


‘Artists have always been among the first to explore new 
technologies...‘ (David Thornburg, Computers and Society, 
(Compute! magazine, March 1982, p. 16) 


The advent of the personal computer has given many people an 
outlet for their creativity. Many have found that just having easy 
access to a computer has given them an entry into creative activity, 
tapping skills which might otherwise have remained dormant. 

Like all art forms, knowledge of technique can make it easier to 
express your creative programming desires. Having a fund of tricks 
and techniques on tap allows you to get on with inventing and 
developing the program you have imagined without being hindered 
by the fear that you may not be able to make the computer perform 
just as you desire. For example, knowing how to make objects 
move allows you to concentrate on other characteristics which 
elements within your program should display, rather than getting 
bogged down in working out the mechanics of creating 
movement. 

Examining the programs in this book and in magazines and other 
books, should teach you quite a bit about programming. As you 
enter the programs and read the notes I've written to accompany 
them, you should pick up a number of ideas which you can easily 
incorporate into your own programs. If you're still fairly new at the 
programming game you might want to start just by adapting the 
listings in the book, changing such things as the user-defined 
graphics, or the keys which an INKEY$ routine reads, and then go 
ahead later to write completely original programs. 

Keep the ‘human’ side of your program in mind when developing 
it. In many cases, your programs will be run by people other than 
yourself and you should try and make it as easy and as enjoyable as 
possible for others to run your programs. For example, many 
programs (including some in this book) written for the Spectrum 
use the "5", "6", "7" and "8” keys to control movement, moving 
an object under player control in the direction indicated by the 
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arrows above those keys. But if you think about it for a moment, 
you'll realise that they are not the most sensible keys to use in all 
circumstances. They are crowded together at the top of the 
keyboard and are certainly not the easiest ones to use. It may be far 
more convenient, if a program just demands left and right 
movement to use the “Z” (for left) and the “M” (for right) keys. 
Other keys can be brought into play for up and down movement. 
You'll see this in use in programs in this book such as DEATH RACE 
2000. 

It is worth questioning any program actions you make by habit— 
such as using the “5" to “8" keys—to see whether or not this 
habit helps produce a program which is as pleasant as possible to 
use. 

If you do use keys other than “5" to “8" for movement, choose 
those which seem ‘natural’ so the player can get on with enjoying 
the game, rather than waste mental energy trying to remember 
which key does what. Pick keys which are comfortable to use, with 
positions somehow related to their function within the program 
(such as the bottom left hand corner of the keyboard—”Z" —for 
moving left). For other controls within a program, such as firing 
your deadly, alien-zapping laser gun, it makes sense to either pick a 
key which is easy to get at, or one which has some link—such as 
“E" for fire, or ‘R" to roll the dice—with the function the key 
triggers. You'll see this in REVENGE OF CASTLE DREAD where 
you enter “E” to move east, “FL” to flee, and “Q" to quit. Once 
you've read the instructions for a game like this, you're unlikely to 
forget which key performs which function. 

If itis possible to do so, you should include quite explicit prompts 
within a program, so the player knows exactly what to do in each 
situation. Although it is not necessary to provide full instructions 
within a program (and often they simply occupy a lot of typing time 
and memory), your INPUT prompts should be clear. The use of 
specific guides for the user, within quote marks in an INPUT line on 
the Spectrum, makes it simple to give the program operator 
explicit prompts or guidelines. As you probably know, you can use 
all the standard PRINT statement controls, such as FLASH, 
BRIGHT and INVERSE within INPUT prompts, highlighting such 
prompts and adding to the general interest created by the program. 

Once you have a program up and running, you should spend 
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some time making the display as attractive as possible. Even if the 
output of the program consists just of PRINT statements, there is 
no reason why they cannot be arranged on the screen in an 
interesting, clear and attractive way. Use of colour within PRINT 
statements or perhaps in BORDER changes from time to time, can 
enhance the message and improve its legibility. Random BORDER 
changes, for example, are used in the chess program within this 
book to acknowledge a capture by a human piece. 

Sound can also be used to improve programs. It is surprising 
how much a few BEEPs can add to a program's output, not only for 
obvious things like the sound of an alien disintegrating, or for balls 
bouncing, but also for applications such as those with NEOPHYTE 
CHESS. In that program, the computer BEEPs as it runs through a 
particular part of the program concerned with looking for a piece to 
move. This ensures that, even if the computer appears to be taking 
a long time to make a decision, the player is reassured that the 
program hasn't lost itself in an endless loop. 

Any use of colour and sound can enhance the impact of a 
program. While there are some who would argue against the use 
of colour for colour’s sake, it seems foolish when using a computer 
such as the Spectrum—which provides colour as one of the 
features—not to take advantage of these features whenever you 
can. The same argument applies to user-defined graphics. You 
should use them if you feel they will enhance the program. In our 
chess program, we did not create our own graphics because the 
emphasis there was on quality of play, rather than ‘prettiness’. 
However, there is no excuse (except, perhaps, laziness) for having 
inverse asterisks, for example, to represent aliens rather than the 
‘real thing’ created by a user-defined graphic or two. 

While not overlooking the value of adding colours to INK and 
PAPER, nor that of highlighting words wirh INVERSE, FLASH and 
BRIGHT, there are more subtle things you can do to enhance a 
message, such as including certain words in capital letters when 
the rest of the message is in small letters. You can see this in use in 
the rewrite of the room descriptions in REVENGE OF CASTLE 
DREAD where I've included the changed words in capital letters, 
so you'd know which ones to alter to get the variation on the game. 
Although the words were put in capitals in this to simplify the 
conversion task rather than to highlight them, they do illustrate 
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how effective something as simple as this can be. The position of 
print output on the screen can also be important, and PRINT AT 
makes it easy to place your material wherever you want it. 


INCREASING PROGRAM SPEED 

In some programs, quality of play is more important than the speed 
of play (such as in PIRANDELLO and CHECKERS in this book). But 
even in programs like these, you should still aim to produce a 
program which runs as quickly as possible. Speed is generally the 
over-riding priority in moving graphics games. Jerky, slow-moving 
graphics lead to an unsatisfying program. 

In the introductions to several programs in this book, I’ve drawn 
attention to aspects of that program which help to maximise its 
running speed. | thought it would be of value to have the hints 
brought together and some extra ones added, in this chapter. 

When a program comes to a GO TO or a GO SUB commana, it 
must search right through the program, from the first line number, 
line by line, until it comes to the line number designated in the GO 
TO or GO SUB. Therefore, programs which place often-used 
subroutines near the beginning of the listing tend to run fractionally 
more quickly than they would if the routines were towards the end 
of the listing. If there is a master loop, which is accessed time and 
again in a program, it is worth trying to organise the program so this 
loop is as close as possible to the start of the listing. You'll see 
many programs organised in this way in this book. 

In addition to using this arrangement, parts of the program which 
are only used once—such as instructions to the player and the 
initialization of variables and user-defined graphics—should be 
placed at the very end of the program, to ensure that they do not 
have to be ‘jumped over’, as it were, every time the computer 
starts searching through the listing for a GO TO or GO SUB 
destination. 

You'll find that, generally speaking, the lower the number of lines 
in your program, the faster the program will run. Statements which 
are ‘chained together’ on the same line are executed fractionally 
faster than they would be if they were in consecutive, single- 
statement lines. This is especially noticeable with moving graphics 
programs, so you should try to chain PRINT AT statements with 
semicolons whenever you can. Generally, the decrease in speed 
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as a result of having many separate lines as well as copious REM 
statements, is neither critical nor particularly noticeable. However, 
when speed must be optimized, it may be worth making two 
versions of a program. The first version, studded with REMs and 
using single-statement lines for maximum clarity during the 
development and debugging stages, can be stripped down to the 
second version. This second program will have no REMs left in it, 
and will make as much use of statement-packing as possible. 

GOTO statements can often be completely removed by careful 
programming. Examine any GO TO which is not qualified by an IF/ 
THEN to see if you can remove it. Some programming purists claim 
an unqualified GO TO is always bad, but this is no reason why you 
should totally eschew the often useful command. However, you 
should look critically at programs which use GO TO, especially a 
non-conditional GO TO, just to see if there is any way of getting 
around it. GO SUBs can often be removed completely as well. If 
there is a fairly short subroutine which is called only two or three 
times in a program, you may find it better to include the subroutine 
in full each time it is needed, rather than consume time in GO 
SUBbing. 

Once you have a program up and running, it is worth dumping a 
listing of it to the printer to examine it quite critically in terms of 
general ‘blocks’ of more or less self-contained code. You'll find you 
can look at many programs in this way, even if they were not 
programmed with a ‘modular’ structure in mind. Once you've 
scanned your program in this way, you may well discover the 
blocks are not in the best order to ensure the program runs logically 
from point to point as quickly as possible. You can then try to re- 
arrange the blocks of code into an order that is ‘cleaner’ and, 
perhaps, more logical. 

Do not use brackets unless they are absolutely necessary, as 
they take up both memory and processing time. You'll find that the 
Spectrum generally demands fewer brackets than do most other 
BASICs, allowing for example PRINT CHR& 134 rather than PRINT 
CHR& (134). 

You may have trouble fitting programs originally written for a 16K 
ZX81 into a 16K Spectrum. The graphics consume a significant 
portion of the memory ona 16K Spectrum. When converting, leave 
out all the REM statements, and condense PRINT statements as 
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much as you can. Leave the instructions out entirely. Examine the 
entire listing to see if it can be shortened in any other way, such as 
replacing frequently-used words or phrases with strings or by 
adding a subroutine to cater for blocks of code which are accessed 
more than once in the program. This will slow it down a bit, but this 
is a small price to pay to squeeze the program in. As you probably 
know, the Spectrum runs very much more quickly than does the 
ZX81, so this sacrifice of speed is unlikely to be a problem. If the 
program ran at a satisfactory speed on a ZX8’, it can’t help but be 
better on a Spectrum. 
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THE GOTHIC GENERATOR 
This program is not a game, but it is a very useful programming aid 
and can be great fun to run. The program allows you to define one, 
or all of the characters printed by the Spectrum, as characters of 
your choice. It is just over thirty lines long but enables you to 
produce quite extraordinary effects. . 

Here, for example, is the program listing in Gothic characters, 
created by redefining the whole character set: 


2 rf phars 
— mae eet on ee 
S S22 £23 208 
20 Figar s2234ef 
a5 #F248b “Pitasé mein a fem Me 
Hears ay 2 keg 7 = a 
Jat GE. - o 
Be L#h F=25826 
oO if 2=S8 401 
40 Fr foo £8 2ORE 
pe re oe On oe er 7 Aas ee 
ae SETS 2 te Bee a tT 
zo HEF F 
Fe? LF p=asiies 
gor FAR 2 ase se 
BV iG s  Faese vs P 
Bo gene H.B-BS6sRnh Cy-a5es 
409 FRRE Het. a8E (8 -2563 
= 2 Ea ear ee yee ae ea oe Be 
200 GhFthi “Mhath itgrker fa rer: 
BaLrane “as Se 
ESO [@f 2=534084+52(2848 28-29) 
SBe FHL far TF r 
BSP ifb Fea TbaB , 
Ba? -2HPne 8: 24Ff €S=" SEF «- Fs 
fn gte2 j 3 fea ‘ 
=e Pe apg r Oe ha 
~= By = an oe er. a ¢ ae ae 
22S, 3F LER CSc335 Abe THK % Sie t 
# pté -S,23¢: 38 FS 240 
SSO j¢f b=v2) ther $3 
255 Phe 2:f.% 
SSP FARE Fri: fab St 5.b 
aZapo nese =F 
Sen EBRTEe?* 
SBS? FPrabET 
Beso Fran 2s 
FPaRnF 2s 
— Ze FRE o 
ae Faiz 
wis Erint 
=a fi Baa: 
Za re os a 
Say, See 
ZSz02 B32 FH 20 


As you can see, it is very effective. Most of the time you will not 
need to redefine the whole alphabet and may want to change only 
a few characters. You run the program and wait a few moments 
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shown. Once you've done this, your enter alphabet will have been 


rendered Gothic. This will be ideal for printing cheap greeting cards 


on your Spectrum next year. 


e Kp it 
Oe Oy MS os eR Lee aS egy hy 
ey tei Pads shod 0a Bn ah hrstch on tp o> 6 nO ge wr nt dG 


gsi et 
1. Rie He pe de 0A at aoe pF 


cnet for U9 Kon 16 ook fy Eb Pe ned MY UAT Ue EE aM Fy USP (ne ty Ft] (FSD Aes SPN anak fot LU (Sg 1s Fy LETT Aen HPS et fy LGC Poe SPs at ft UCT 
He ie ype Ey os apeh wok ape 28] AML ee Sf eh Cp ty Led A ey eet eh eth oR meh et yh BPD Py LD 7 ta at ns onl Cece Who Boe Eo Fe Koen 281 0 

gf et tp apt ate eee a ee eg ah eg ate "apt egl ae a apt veh apt el sept et sep eps cap net apt vept cpl och apt 
vimoelenstpasaaied ican ed ded iter raat is eset edlenagaec ete cea liacid ed atts 
MVM ivi MMM MMe Pio iO TORR TS one PT Tat 


woe eS, sl not 
PED Ep 90h 153. 961 UP pat OL PE PY aE FoXp Op ate ges Ap ED nye Hh fH IE rt Ay [Mt eho 8D pe 


Hey 8G te Np hah ER Ete A oe MP Og ts ag Hug AL Op aS mf ged Sp Eat I ag ge AH 
C11 1 ek a ek 4 8) 44 Ey MP WB BYU) ea at an Po i Po 6 
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POM hy 
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SS oreo "1 a be G tf Que -. 2 ee 
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Se Sesser e iu Gx! i (hs “ee tty SO Ff: a 2 
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Oo OO eae Wf WAS J all Web eee ee 5 aS life SG 2 
os aS eee OP ens GU Cee em O12 fos (2, oe fod See bed Be ed ed Dd Wey CO ae >G 
S55 Ot eS OIG MWUOOWMWOoe WOW ZOW ORM OO ces fe ae 
Oe ee Be ee ee ee Se Lett. 52 
‘=> oO Ped Wy ; hsp - 3 : = 
5 feeeee2 NSH HHgSCo9HOOnsSoGgnHWEHaGGagaaS 42 Pwawg 3 5 
5 S465 EER ANCHO HOM ONAG. AO FHNHO Gnade EFS Gama So 
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| #< @PL8oa5 a i i oye MOd ge 
Ve eS ee 254 Se 
Por Ge oes cfs 
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MACHINE CODE RENUMBER 

Here is a machine code program which will renumber a BASIC 
program, altering where needed the numbers following GO TO, 
GO SUB, RESTORE, LINE and RUN. It is written to the address 
5CD9, that is, the first program line. The addresses may be altered 
(the appropriate addresses are underlined) but the process is not 
recommended. 

Here's how it works: 

1. The program looks for RUN, GO TO, GO SUB and RESTORE 
bytes throughout the program, checking that they do not belong to 
a REM statement, PRINT statement, line number or length of line. 
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If the end of the program is reached, it is renumbered. If aGO TO or 
GO SUB or similar byte has been found, the program checks to see 
if CHR& 14 occurs in the next five characters. If not, the program 
loops back to the start. The program now block loads the number 
into variable a. 

2. Next, the program POKEs the number back into the second part 
of the program — now in hexadecimal. It finds the position of the 
line numbers after such things as GO TO and GO SUB, and if 
greater than the last program line, loops back to step 1. It converts 
the position of the line number after the GO TO or GO SUB into the 
new destination, converting this number into a string in aS. Now it 
block loads the new destination to the five bytes after CHRS 14. 
3. The program now loads the string into position immediately 
after GO TO, GO SUB and the like. It deletes or inserts spaces as 
required to accommodate the string, while at the same time 
altering the system variables and the length of the program line. It 
then loops back to 1. 

To enter the program, type in the BASIC hex-loader, and a REM 
statement containing exactly 372 characters as line number 1. This 
occupies eleven lines plus 2@ characters. Note that there are no 
spaces within b§ in line 2. 

You run the hex-loader, entering the pairs of hex code given as 
listing two. The hex loader will accept any number of bytes at a 
time and the code must be entered without spaces between the 
pairs. The code uses lower case letters and allows you to re-enter 
any numbers it does not recognize. At the end of the DATA it will 
stop with report code 9/18: 1/ 

Check the following: 


PEEK 23765 should return 33 
PEEK 23891 should return 11 
PEEK 23993 should return 33 
PEEK 24072 should return 42 


Now delete all of the original program, except for line 1. Enter 
listing three. Note that line 5 contains the step size, and first 
number. In this program, they have been set to 10, but you may 
alter them as you wish. However, they must both be four 
characters long, and hence have leading zeroes. When attempting 


——— ———~s ——+, 
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to alter these values, you must POKE 23901 with the first number 4D GS SB 23 ER Be cp Fe 
minus the STEP SIZE, and POKE 23909 with the step size. Just SC O88 Di cS cS oS ES =A 
enter RUN to renumber a program. It is suggested that you keep as 
the RENUMBER on a separate tape, and MERGE it with your 5 SG ES ec AY ED Se 44 
onboard program when you need to renumber. 4b 23 DL ER ED SSB cap Fe 
ne SC 48 CD @C SE 48 23 
Listing one, the hex-loader: — a ee 
BrLET pe="SL2S4S567SSabedei” bE Ci CS BG sR Ee St 7F5 
= eae B=arSarEea Ta 24151 ave ae : 
3 INeUT as” cb FR St 38 43D 8: oe a 
S PRINT Grassi * ees, Weegee Spas Ne 
= Ley egees ~22 SR pS SC EE 321 CFR BG 289 
7 OQ suUB 19 os ae fa ae — 
S IF b=16 THEN GO TO 4 $4 4b ER co Fo. s¢ oS8 78 
a Sea eto: 25 73 35 SE 28 SG 28 18 
ath Sue, is ee = 3 
13 B26 THEN GO Tro 4 26 £5 83 23 84 S@ FE EF 
aSeeS &,tt#b oo ere = x ss ae anes 
a2 © feiat (3S TO 2 a8 6 G46 SEC CUBDUlUlUGSh UCC 
Sys aS =S+4NOT NOT LEN 2 — a = = 
aS : =} i$ 35 THEN Go Ta = 2288 Ss 47 ES Bi 138 @A be 
37 NEXT 3 S hoy “a eee 
38 STop Bb ofa 68S CU 2E 26 84 i3 
33 FOR b=8@ Fa 15 eae ee re ee = fei ee 
BO IF bSib+2} <>c& THEN NEXT b 2S ee eS Bb Es 5 sa 57 
231 RETURN ; SS —— ae sees a = = 
si £8 SC GE GE 81 85 85 
Listing two, the hex code: ae =a) 
ED tae 2S An? ee ES St Ep 
48 52 61 683 65 28:1 a8 sF Soap se Sees. ee ae fe eS 
=3 23 23 esa 82 E8@ 5c oo 3 ai Oi SD 35 pea 2A eis) 
iG SF Zé G2 rr Ec ce ri Sao Gi wa ia Bx S68 223 poy as 
ERB CS FE ES cS FE cf cs 23 55 21 8f oe 37 ED ss 
mee SES ce EG 2A 45 S& aF Ei G8 S& 22 Sa 23 is cr 
ER S232 E56 c El FE ES G6 ro. Sc Be == 82 84 88 co 
BS eal ctF S5¢ 23 ES ce& 26 BR 45 Sc 2a ERS SR Ee 5s 
Sc A? 23 ar 34 ea 82 25 Si BS SB ER Ba ED SRB EW 
oe 18 as as #20 Be 2c a5 Si SR ial 23 46 2a in BE 
Ei 18 ES ce 5 cD ac SE. SE cc oa SD ED Aa 78 fais 
&@ 27 65 5C AP ER SE 44 2B Fa 2 FE @8F cs cap ite 


———————— gy — 
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Sp 45 FF cS 21 f£ Sp 26 PROGRAM AUTHORS 
cS fn =e SC @8F ap ED ae Thanks to the following programmers who have helped greatly 
a E fe with the production of a book of worthwhile, interesting games: 
ES 85 ec s08 45 a5 4F 85 LEVEL FIVE Paul Toland 
=G 42 2 Sb cD SBF SB pt CIRCUS Paul Toland 
eee a ees a Be Rg JOGGER Tim Hartnell 
Se ae ee 2 eee ee DISABLE THAT MINE Paul Toland 
Sa C3 8A Ch AF Be ear B34 COPTER Tim Rogers 
aA @S 285 34 418 O85 B25 2a MAZURKA Paul Toland 
 ..: es e eee ALPHABATTLE Tim Rogers 
a or ee SMASHOUT Ant Hurrion (modified by Tim Hartnell) 


3-D DRIVE Tim Rogers 
NORWAY PANIC Tim Rogers 


B>LET a Suen 20735 asap DEATHRACE 2000 Tim Hartnell and Tim Rogers 
= 3 wart 1] 
a BOKE 24012 a-INT (a7256) #28 CLONE CRAZY Mike O'Neill 
See eee oe hee SO See ea ea PIRANDELLO Graham Charlton (modified by Tim Hartnell) 
oi CHECKERS Tim Hartnell 
F eg SS lee eee eee LEY _ TIC-TAC-TOE Tim Hartnell 
es: t-te ggg rs hoe NEOPHYTE CHESS Tim Hartnell 
S REM REVENGE OF CASTLE DREAD Tim Hartnell 


JOE CAPITALIST, JNR. (Lemonade Stand) Paul Holmes 
SYNTAX Tim Rogers 

THE WELL Tim Rogers 

THE GOTHIC GENERATOR Tim Rogers 

MACHINE CODE RENUMBER R. Wilkinson 
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BIBLIOGRAPHY 

There are many books which can help you gain ideas for writing 
games on the Spectrum. This list includes some of the best ones 
which I've discovered. 


Computer Games Books: 


40 Computer Games from kilobaud microcomputing* Gibbs E.A. and Perry, J. (eds) 
(Wayne Green Inc., USA 1980) 


The Softside* Sampler Witham J. (ed.) (Hayden Book Co., Inc., USA 1982) 
BASIC Computer Games Ahl D. (ed.) (Workman Publishing Co., USA 1980) 


More BASIC Computer Games Ah D. (ed.) (Workman Publishing Co., USA 1980) 


General games books, for program ideas: 

The Way To Play the Diagram Group (eds.} (Corgi, 1977) 

The Indoor Games Book Pennycook, A. (Faber & Faber Ltd., 1973) 
Games for Two Wasley, J. (Proteus Publishing Ltd., 1981) 


Everyman's Indoor Games Brandreth, G. (J.M. Dent & Sons Ltd., Everyman 
Paperback, 1982) 


Dice Games, New and Old Tredd, W.E. (The Oleander Press, Cambridge, 1981) 
Discovering Old Board Games Bell R.C., (Shire Publications Ltd., 1980) 


*Registered Trade Marks 


Readers wishing to learn more about programming the 
Spectrum may find material of interest in The ZX Spectrum 
Explored, also by Tim Hartnell and published by Sinclair Browne 
Ltd. 


